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ABSTRACT 


This report documents the technical progress of researches under National 
Aeronautics and Space Administration Grant NSG-3048, entitled "Alternatives 
for Jet Engine Control”, during the twelve-month period from November 1, 1983 
to October 31, 1984, NASA Technical Officer for the work was Dr. Bruce 
Lehtinen, at Lewis Research Center. Dr. Michael K. Sain was director of the 
investigation at the University of Notre Dame. 

In the period since the last report, Mr. Joseph A. O’Sullivan has com- 
pleted a numerical study employing feedback tensors for optimal control of 
nonlinear systems. It Is believed that these studies are the first of their 
kind. Results demonstrate improvement in state regulation, with a decrease 
in control power. A detailed treatment follows; it is based upon an extended 
version of Mr. O'Sullivan's M.S. Thesis, 
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CHAPTER I 


INTRODUCTION 


This paper dr-als with the nonlinear optimal control problem. For a sys- 
tem given by 

x(t) « f(x,u,t), t e ( t Q , t 1 3 , X s R n , u e Rra 
a control, u(t) “ U(x(t),t), which is a function of the state vector, is 
sought to minimize the performance index 

f £ l 

J(x 0 ,u,t 0 ) = M(x(ti)) + / L(x,u,t)dt, 

fc o 

* 

where M(x(t^)) and L(x,u,t) are positive convex functionals [1]. All partial 
derivatives of f(x,u,t) in some neighborhood of the origin of R n x R m with 
respect to x and u are assumed to exist so that 


2 2 

f(x,u,t) = A(t ) ® x + B(t) ® u + Ao f [2](t) ® + A[2],o(t) ® u t 2 3 

2 

■fAi f i(t) ® u® x + ... 


p+q 

» I A[„] , [q ] (t) ® ufp] ® xUJ 

p+q>l 

p+q 


where A[ p ] y [q](t) is a tensor which is continuous and bounded, ® is the con- 
traction operator described by Buric [1], and utP^ » xfqJ stands for the ten- 
sor product of u with itself p times and x with itself q times. The sura is 
assumed to have either a finite number of terms or to be a convergent power 
series in some open neighborhood of (x,u) = (0,0). The pair (A,B) = (Aq^, 
Al,o) is completely controllable. Similarly, 


M(x) = l M[k] ® x^J, where x(ti) = Xf, 
k f 

j+k 

L(x,u,t) ** I Q[j],[k]<t) ® uUJ ®xl k 3, 

j+k>2 


where Q[j],[k]^) are tensors which are piecewise continuous bounded functions 
of t E Ct Q> 1 1 ] • The set of acceptable controls is assumed to be ft =■ (u(t) : 


1 


u(t) = )' K [ j j ( c ) © xf.ll}, where Che K (t) are assumed Co be bounded piece- 

j f -1 1 

wise condnuous functions of t s f t 0 , 1 1 ] - Buric shows Chat under these as- 

1 

sumptions the control tensor coefficients K (t) are unique and are calculated 

1 I ^ 

recursively using K (t),...,K (t) and the optimal performance function 

1 [j-l] 

V(x,t) which is the solution to the Hamilton-Jacobi -Bellman equation for this 
problem. Buric's work is an extension of Lukes' [2] who demonstrated the ex- 
istence and uniqueness of polynomial feedback in the case where 

1) the A[ p ] f [q] and the Q[i],[j] ere not time-varying 

2) M(x(tj)) = 0 

3) ti = 

Lukes showed that the optimal value function, V(x), is a power series 

V(x) = J V^Cx), where V^-Cx) is a polynomial homogeneous of degree k, 
k=2 


and that Vj^x) can be computed as a function of Vj (x) , . . . fV^-i (x) , and 
1 - 1 1 

K (x),...,K (x). Then K (x) is calculated as a function of Vi(x),..., 

1 k-2 k-1 

* 1 1 

VjfCx) and K (x),...,K (x). Thus, he obtains the algorithm of calculating the 


V^Cx) and K (x) in the order: V2(x), K (x), V 3 (x), K (x), V 4 (x), K (x),... 

k 12 3 

His results, however, are not in a closed form. It is difficult to see in his 


presentation the exact method for calculating these terms. Buric introduces 


the time-varying coefficients and the tensor algebra to the problem. By using 

tensors he arrives at a precise method of calculation for each of the perfor- 

1 

mance function tensors and the feedback tensors K (t). 


tem 


i l 

Hill calculated K^(t) and K^(t) for a two state, two control example sys- 
f3j. That was the first time that these terms were calculated using 


Buric's algorithm to the best of our knowledge. 
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The contributions of this work are in the development of a software pack- 
age to calculate the feedback tensors and to perform the required algebraic 
operations on tensors for an arbitrary problem. There is a library of tensor 
subroutines which form the basis for the calculations, a program which calcu- 
lates the feedback tensors, and a program which uses these tensors as a coiv 
trol law to calculate the propagation of states in the system. All programs 
are written in FORTRAN IV Plus. 

There are six chapters in the thesis. The second chapter of this thesis 
contains some texisor background material and describes how symmetric tensors 
provide a natural method for representing polynomials. The third chapter de- 
scribes a few of the subroutines and how they accomplish the desired algebraic 
operations, A derivation of the equations for the feedback tensors is in the 
fourth chapter. An example and some results are in the fifth chapter, and the 
conclusions are in Chapter VI, The software is in the Appendix. 


CHAPTER II 


TENSOR ALGEBRA 

This chapter deals with two subjects. The first is some tensor back- 
ground material. The notation and conventions are derived almost exclusively 
from Buric [1]. The presentation is very condensed and is meant to clarify 
the equations in the remainder of the thesis and not to be a thorough treat- 
ment of the subject. The second part of this chapter deals with the represen- 
tation of polynomials using symmetric tensors. Such a representation is shown 
to be natural in the sense that there is a one to one correspondence between 
polynomials and symmetric tensors. 


TENSOR BACKGROUND 


Let V be a vector space of dimension n with basis {ei,e 2 ». • ♦ ,e n }. A map- 
ping is said to be q-llnear if it is linear with respect to each of Its q 
arguments when all of the other arguments are held constant. Define a q- 
linear mapping 


«: 


V 

v. 


x v 


q 


x ... x V V © V ® 

~Y y 

times 


© V 


by 


® < e i, »«!„*••• ,ei ) " e ± ® e± 

12 q 12 




e i 


q 


Note that ® is q-linear because 

® (e^ i • • • ,ae a + beg, . . . ,e^ ) = ej[ ® ... ® (ae a + beg) ® . . . ® e^ 

1 > Y q 1 v y , q 

jtb position jth position 

= a(e^ ® ... ® e a ® ... ® ) + bCe^ ® ... ® eg® ... ® e-£ ) 

1 q l q 


for any l<j<q. Then, for any q-linear mapping P = VxVx...xV-*-U, where 

V Y" J 

q times 

U is any other vector space, there exists a unique linear map X such that the 


4 


5 


diagram below commutes. 



A is defined by its action on the basis for V ® V ® ... ® V, namely (e^ 


® ® e^ }, where l<ij<n for all j. There are n*l such basis elements. 

q 

X(ei ® ei ® ... ® ei ) = P(ei ,et ). 

12 q 1 2 q 




e i. 


Let 


Then, A * ® = p. As an example, let dim V = 2 and U = R. Then the basis for 
V ® V is (ej ® ei , ei ® e2, ©2 0 el , e2 ® e2^* Let two elements of V be x and 

y» 

x = xiei + X 2 e 2 , y - yiei + y2e2, 
then the bilinear mapping p must be of the form 

p(x,y) = cixiyi + C2Xiy2 + c3x2yi + c4xy.y2* 

The linear map X is defined by 

X(ej ® ei) = ci X(ei ® e2) = C2 

X(e 2 ® el) = c3 X(e2 ® e2) = c4- 

Then 

(X • ®)(x,y) = X(x ® y) - X((xiei + X2e2) ® (yiei + >*2e2)) 

= X(xiei ® (yiei + y 2 e 2 ) + X 2 e 2 ® (yiei + y 2 e 2 >) 

“ X(xiyiel ® ei + xiy2ei ® e2 + X2yie2 ® ei + X2y2<*2 ® e2) 

= x iyi*(ei ® ei) + xiy2X(ei ® e2) + x 2yiX(e2 ® ei) 

+ x2y2X(e2 ® e2) 

= xiyid + xiy2c2 + X2yic3 + X2y2c4 

= p(x,y). 


Lines 2 and 3 are a result of Che bilinearity of ©. Line 4 comes from the 
linearity of X. 
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Let the dual space of V be V*, the space of linear functionals on V. 

Find a basis of V*, {e^ 1 eS...,e n l i such that the function evaluated at ej 
is one if i = j and zero if i * j* That is, 


ei(e-j) - 


i 

6 

j 


1 



i - j 
i * j 


Now, define the bilinear map <•,*): V* x V + R to be 

<e^,ej> •- e^Cej). 

<*,♦> is called a scalar product and is bilinear because 

il ±2 il ±2 

(e + e )(ej) = e (ej) + e (ej), 

(ae i )(ej) = a(e i (ej)), 

and 

. e^(ae-j + be-} ) - a(e^-(e^ )) + b(e^(e-j )). 

3 1 -'2 J 1 J 2 

Notice that V is reflexive sc that V** = V [4]. 

Definition : Given an n-dimensional vector space V and its dual space V , a 

tensor of degree (p,q) is a (p+q)-linear mapping 


t : V* x . . . xV*xVx... xV -*■ R. 

q 

p times q times 

This tensor is said to be contravariant of degree p and covariant of degree 
q [1]. This tensor is a member of the vector space of (p,q) tensors, called 
T P (V), The dimension of this tensor space is nP + 1. Corresponding to each 

q 

tensor is a unique linear map A which makes the following diagram commute. 


7 



To get a clearer view of A, assume p = 0, q = 2; then the diagram is 

0 


V x V 5 * V ® V 

A 



Since A is a linear map it is an element of the dual space of V ® V, This 
space is just V* 0 V*. This can be seen by defining a scalar product 

<ei ® e 3 , e^ © e£> = < e^,ei t Xej,e£>. 

This scalar product is again bilinear and all linear maps from V V to R are 
elements of V* ® V*. To see this, let 

A : V ® V + R, 


then find out the action of A on each member of the basis of V 0 V, 

A(e^ ® e-j) = 04 J e R. 

n n 

Then, if L = £ I e k ® e A , we have <L,e£ ® e-;> equal to 

k=l 4=1 

n n 

< I 1 e k ®e*, e^© e-i> = 

k=l 4=1 
n n 

I I <e k ® e~, e^ ® e-i> - 

k=l 4=1 
n n 

I I <a k ,e i Xe A ,e4> = 

k=l 4=1 


8 


n n k. £ 

l l a k£ 5 6 = a ii = 0 *M>. 

k=l £= 1 i j 


So V* 3 V* can be seen as the dual of V 8 V, By reversing the roles of V and 
V*, V © V is the dual of V* © V*. Extending this idea, the dual space of 
V* ^ V* © . . . ® V* © V © V 0 . . . © V is V © V 0 , . . 0 V © V* 0 V* 0 . . . & V*. 


p times 


q times 


p times 


q times 


The scalar product associated with these spaces is 

jl 32 jq kl k2 k P 

<ef ®ei ®...e^ © e ®e © ... e ,e © e © . . . e © e£ © e£ ® 

1 2 p 12 

k l ^2 jl j 2 jq 

... ® ejj, > = <e ,ei ><e ,ei >...<e ,e£ ><e ,e£ >...<e ,e£ >. 

q 12 12 q 

p 

This product is still bilinear. Since for every element of T (V) there cor- 

q 

responds a unique element of this dual space, the two spaces are essentially 
the same. Thus, 


t P £ T P (V) » V ® V ® .... ® V © V* © V* © ... ® V* = (®V) © (®V*). 


q q 

/ 


p times 


q times 


Written in terms of the basis for T (V), 

q 


ili2.*.ip jl j 2 j 

i e-£ © ex ® . . . e £ ©e ®e ®...®e 


q il,...ip,ji,...jq jlj2* ,, jq ^ ^ ^ 


P r 

Now define the tensor product of two tensors, t and t , where 

q s 

r „ kik.2- • * k r ^1 ^2 l t 

T = I b e k ® ®k ® • • * e k © e a e . . . ® e 

8 *1*2-- -*s 1 2 r 

to be 

P r iii2» * *fpkik2* . .k r jl 

t ® T = }. c e-j © . . . ei 0 ® . . . ek. ® e 

q 8 jlj2***jq®'1^2**“^g 1 p 1 r 


£ g 

® e . . . ® e , 
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where 


ill2- ■ • ipkik.2. . .k r ili2-*.ip kik2...k r 
c = a b 

j 1 j 2* • ♦ jq £ l £ 2 ‘ • ♦ £ s £ 1^2 , ** £ s 


So t P ® t r e T P+r (V) and T P (V) ® T^V) = T P+ '(V). As an example, let 
q s q+s q s q+s 

p=q=r=s=l, then 


and 


1 n n i 

t = l I a iq®eJ 

1 1=1 j=l 3 


1 

T 

1 


n n \r 
l l b e k ® e £ , 
k=l £=1 £ 


1 1 n n n n iir 

t • x - l l l l c , e ± ® e k ® 
1 1 1=1 k=l j=l £=1 i £ 


&3 a 


e 


£ 


where 


Ik 1 k. 

c = a b . 

3 * 3 £ 


This multiplication is associative and is distributive over addition. It 
shou.’d ?j'. noticed that the result of this tensor product has a basis which 
consists of a tensor product of basis elements from the primary space followed 
by a tensor product of basis elements from the dual space (that is, in the 
basis, the elements with the subscripts are written before those with super- 
scripts, as in e^ ® e^ ® ed ® e £ ). This will be the convention used through- 
out this paper and it implies the commutativity of the following diagram 

p q r s ® D+r q+s 

(0y) ® (®v*) x (®V) ® (®V*) -*• ( 0 V) 0 ( ® V*) 

1 

V 

U 

Here, b is a bilinear function and 1 is the corresponding unique linear func- 



tion. 
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One can have tensor products of more than one space, such as U Q V. If 

there are copies of the dual and primary space of each, one can write 

p, t p,r P r 3 . s . 

t e T (U,V) = (©U) G (©V) © (®U*) © (®V*) 

q. s q,s 


for 


p,r ii • • » ip ,’* 1 . , , k r jl 

t = a 8 ... ® »j[ ® ej[ 8 ... ek ® w ® 

’ pi r 


q ' s j 1 * • • jq » ^1 * • • ^ 


w 


e 


*1 

e © 


where (w-^} is a basis for U and (w-*-) is a basis for U*. 

P *1 

So far, the space (®V) ® (®V ) has only been referred to as the dual of 

p q 

(©V*) ® (QV), This space can also be seen as the space of linear functions 

f p , 

q p q p 

f : ®v + ©V 

q 


where 


p ili2*** i p 

'f = l a e-L ® . . . 

■ q 3 1 j 2« • • jq 


01 32 Jq 

ej_ ®e ®e ® . . . ® e 


and 


k,k n . . .k 

r, 1 2 q 

= L c e k, ® e k„ ® • • • ® e k 

12 q 


and 

p „ ili2« • »ip kik2« • *kq jl j2 jq 

f (W) = l a c e^ ® . . . ® ej[ <e ,e^ ><e ,efc >...<e ,6^ > 

q jlj2-.-jq 1 p 1 2 q 


ili2...i p jlj2**»jq 
= I a c e i ® 

jlj2* • • jq 1 2 


® . 

P 


q p 

This is a linear mapping, and any linear map from GV to &J can be written in 

p q 

this form. Similarly, the space (®V) ® (®V ) can be seen as the space of 


linear maps f , 

q 


p r q p-r 

f : (®V ) ® (®V) + s V. 

q 
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In order to incorporate all of the Interpretations of this type into one 
theory, define the contraction operator ® in the following manner: 

r * * * 

o : (Uj 0 Vi & V2 & ... Q V r , V| © V2 ® ... © V r © U2) + Uj 0 IJ2 


where 


r il i 2 i r 

® (w^ ©e ®e ®...®e ,ej^®ej^®...©ej 0 vj) = 


il i2 
<e © e 


0 e * e j ® e j ® 


ej ' > w^ -s vj 


where 


*-k 

e is a basis element in V'' 


ej^ is a basis element in 

Wj is a basis element in Ui 
is a basis element in U2. 

This operator maps two tensors to n third tensor. This map is bilinear. The 

two tensors must have the basis elements in the order above for the scalar 
^k i-k 

products <e ,e^ > to be well defined. That is, e must be a basis element in 
J k 

the dual space to the space containing ej . The spaces U[ and U2 are optional 

and can refer to any spaces. For example, if Uj and U2 are not present, then 

Uj © U2 = R and the contraction operator maps V* x V R, where V = Vj ® V2 

® ... ® V r . In this case, the operation is just taking the scalar product. 

P 

If U2 is not present, = V, and Uj = ®V, then the contraction operation ac~ 
complishe8 the map seen earlier, 

9 p q 
® (f ,b M ) = 


q iii2...i p j q kik2...k q 

® (}, a ® . . . ® e , J c e^ ® . . . ® ) 

j 1 j 2* * *3q 1 1 


ili2,...i p kik 2 »..kq 21 32 3q 

S' a c e£ © . . . © e£ <e ,ek ><e , e^ > ... <e .e^ > = 

1 p 1 2 q 


3lj2**»jq 

la c q, ® ei 

Jlj2-*Oq 1 


© e£ 


Usually, this contraction is written as 

P *1 

f © bP. 

q 

The contractions throughout the remainder of this paper will be written 
in this manner. As an example, let p=l, q = 2, n = 2. 

= f = a ei ® e^ © e- + a ei ® e^ © + a ei ® ® e* + a ei ® e^ c 

q 2 11 12 21 22 

2 2 2 2 

e^ + a eo ® ® e* +■ a ei © e^ © + a ei ® e^ ® e^ + a e 2 0 ® e^ 

11 12 " 21 22 


bl — - c^ei © ei + c^^ei ® e2 + c^e2 0 ei + c^ e2 ® e2« 


Then 


p q 1 2 2 £ 

f K ©bq = f ®b 2 = l ajk c Am e-i <e3 , e£><e k ,e m > 

q 2 i»j ,k, A.m^l 

= (a + a c^2 + a c^l+a c^2) 

11 12 21 22 


+ (a c-^ + a + a + a c^2) e2 • 


For another example, let A e V © U* ® V* and let u © x e U © V, where dim U 

= m = 2 and dim V = n = 2, and {wi,w2} is a basis for U, then 

1 2 £ 

A = l a e£ © wi © 

1 1, j,k=l J >k 


u ® x = l © e ra 

A,m 
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and 

1 2 2 i 2 2 

A <5 u @ x = ( £ a ej_ 0 wi 0 e k ) o ( £ u^xn’wjj. © e m ) 

^ ^ i,j,k=l i* k L,m=l 

2 i 

= £ a x™ e-£ <wi,W£><e k ,e m > 

£,m, 1 , j ,k-l J » k 

= (auu^x^ + ai2 u ^ x ^ + a 21 u ^ x ^ + a22u 2 x^) ej 

2 2 2 2 
+ (aiiu^-xl + aj^u^x^ + a 2lu 2 x^ + a22 u ^x 2 ) e 2* 

SYMMETRIC TENSORS 

It is natural to talk about symmetric tensors when one is working in a 
polynomial space. Polynomials, by their very nature, do not need the full 
"unsymmetric" tensor basis for their representation. The symmetric tensor 
basis, which has considerably lower dimension than the unsymmetric tensor 
basis, is perfect for describing them. The symmetric tensor views a tensor 
product of basis elements which comes from a permutation of another tensor 
product of basis elements as redundant and thus does not include them. The 
method of implementing the symmetric tensor computations and transformations 
on the computer is nontrivial and is thus included. First, however, we must 
look at polynomials and see where the need for a symmetric tensor arises. 

Let’s assume we have a polynomial in i + n variables denoted {ui,u2,..., 
u m ,xi ,X 2 , • . -x n } , The polynomial is then of the form 

k ij i2 i m ijjr+1 i-m+2 ^-m+n 

p(x,u) = l a-fui U2 ...u m x.i X2 *..x n 
i=l 

There are k terms in this polynomial and the power to which each u^ or Xj is 
raised in each term is denoted ij or i m +j respectively. The a^ are the co- 
efficients of the terms of the polynomial. 
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Definition : The degree of p(x,u) is the greatest sum of the powers of and 

m+n 

x-5, that is, the degree of p(x,u) = d(p) = max ( £ ij), where ij is the 

1 <i<k j=l 

power of uj or Xj- m as above. 

The degree of a term in p(x,u) is just the sum of the powers to which u^ and 
Xj are raised: 

if i m + n m+n 
d(ci4U4 « * • x ) “ 2 i • 

n j-i ~ 

il i2 im+1 im+n ® 

The degree of u in a term is d„(a-iui u? ...x n . . . x n ) = l in. 

j=l 

il i2 im+1 im+n 

Similarly, the degree of x in a term is d x (a£ui u2 ...xi . ..x n ) = 

m+n 

l ij • 
j=m+l 

il im+n il im+n il im+n 

(Note: d u (aiuj . ..x n ) + d x (a^ul ...x n ) = dCa^ui •••x n ).) 

The terms of the polynomial are then separated by the degree of the 
terms. Thus, we now have sets of terms, each set having terms all of the same 
degree. Each set is now separated by the degree of u in each terra. Thus, the 
set has subsets, each subset having terras with the same degree of u. Since 
each subset is contained in a larger set of terms of the same degree, the sub- 
sets will not only have the same degree of u, but also the same degree of x. 

An example is in order. 

Example 1 : Suppose m = 2, n — 3 and our polynomial is 

9 9 

p(x,u) = ajui + a 2 u 2 X 3 + a3upJ2 + a4ui z + 35 x 2 ^ + a 6 u l x l 
+ a7uiu2xi + a8ui ,i x2 . 

First we divide this polynomial into sets by the degree of the terms: 
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{aiui>, {a2U2X3, a3uiu2, a4ui 2 , a5X2 2 . a6 u l x l^» {a7uiu2 x l» agui 2 X2). 

Then we divide each set into subsets by the degree of u in each term, 

(aiui), {{a5X2 2 }, {&2U2X3, a6uixi>, {a3uju2, a4ui 2 }}, {a7uiu2xi, agui^}- 

Note that the first and the third sets are unchanged by this subdivision 
since their elements are the same degree of u. The second set, however, has 
three subsets corresponding to terms with degree of u equal to zero, one, and 
two. 

Now that we have a method of separating polynomials into distinct sets we 
can start looking at a means of describing the polynomials using only the co- 
efficients. A method of doing this will require a convention for knowing 
which coefficient multiplies which powers of u-^ and xj. This convention de- 
pends on the sets and subsets above and an ordering of the possible products 
Ui and Xj in those subsets. Also, we will not want to distinguish, for ex- 
ample, between an xjx2 term and an x 2 xi term. The space we will work in will 
be commutative under multiplication so these two terms will be the same. In 
the case of a degree two terra it will be easy to see which x^xj are redundant. 
In higher order terms it may not be as easy to spot the redundant terms. 

Also, for each set of redundant terms we will want to pick one and only one 
representative for a basis. 

Redundant terms arise from a permutation of the X£ in the terms. Thus 
X£Xj arises from XjX^ by the permutation 

1 2 

■ 

2 1 

Here the first term becomes the second and the second term is moved over to 
the first. In general, we will want to choose a basis such that any other 


terra in the space which is not in the basis is just a terra arising from a per- 


mutation on the elements of one of the basis terms. 


For now we will look only at terms of the form 
P 

it where l<i-i<n, j = l,...,p. 

j=l 3 

Permutations on these terras are described by 

1 2 . . , p 

• • • &P 

where l<£.£<p and Z^ * for i * j , SL± integers. If a e S p is the permuta- 
tion, a(i) = J When this permutation is applied to a term, the result is 

P 

IT X-f 

j=i «D) 

p ^ 

Definition : G = . .i D ] , i-i = l,...,n, the sequences of p integers each 

V n 

integer ranging from 1 to n. All possible terms of degree p are of the form 


P p 

it xj_ , [iii2i3***ip] E 6 . 
j=l 3 n 

As was mentioned before, we want terms which arise from permutations of other 
terms to be regarded as the same, thus we group the terms into "orbits". 

p 

Definition: An orbit is a subset of G whose elements are obtained from an 

n 

"orbit representative" by a permutation on the representative. The orbit 
representative is a sequence of integers [iii2,...ip] such that ij<i 2 <. . ♦ <ip« 


Each orbit contains one representative. To prove this, suppose iii2-..i 
and jlj2***jp are distinct orbit representatives in the same orbit. Then 
there exists a maximum k such that ifc A j],.. Say jfc > ifc. Since jlj2***jp is 
obtained from iji2...ip by a permutation, there is an Z < k such that i£ = jfc 
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This contradicts ii<i2*. • • • • ^ik** • • *ip> because i& > i^. Therefore i^ = 

jk for all l<k<p. Therefore each orbit contains one orbit representative. 


The orbits can be viewed as equivalence classes where the equivalence 

relation is the permutation of the integers. The orbit representatives then 

stand for the equivalence classes, and S p the set of permutations. In the 

P 

following, the term it and the sequence of integers iji2...ip will be 

used interchangeably. 


p+n— 1 ' 

The set of orbit representatives, Gp >n , has ( ) elements, 

P 


has ( 


JPl 


mi !m 2 ! • • .m n ! 

P 

term ( it x-j ), i - 
k=l k 


) elements, where mi is the number of times jjr = 


Each orbit 
i in the 


When talking about terms in the polynomial space of degree p, an orbit 

representative will be 

jl 32 jn 

X 1 x 2 ••• x n » j 1 J 2 "*■ in = P* 

/ 

Note that, in this term, xi comes first then x2 then x3>... So this term cor- 
responds to the sequence of integers 

p 

g = [ 1 1 , . . 122 . . . 23 . . ,nn. . . n] e G D n c G . 

■ » , > ' „ ’ n 

jl times j2 times j n times 


Any terra 


P 

TT Xi 

j=i i 


such that 


[ili2-. .ip] 

is in the same orbit as g will be considered the same as g. 


We can now consider any polynomial in {xi ,X 2 , • . . ,x n ) to be the sum of or- 
bit representatives times coefficients. let us order the orbit represents- 
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tives in a unique manner. The ordering will be lexicographic. Thus if 
ili2...ip precedes then for the minimum k for which ifc * jk» then 

ik < jk* Assuming that the polynomial has terms of different degrees, we v.a. 11 
put the orbit representatives from the lower degree terms first. For example, 
if n = 3 the ordering of orbit representatives will be (in vector form) 

xi 

x 2 

x 3 

xixi 

x l x 2 

XIX3 

X2X2 

X2X3 

X3X3 

xixixi 

x l x l x 2 

x ixix3 

xjx2 x 2 

X 1 X 2 X 3 

X 1 X 3 X 3 

x 2 x2x2 

x 2X2x3 

X 3 X 3 X 3 


X1X1X1X1 
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If the coefficients for the terras are ordered in the same manner (i.e. , deter- 
mined by the term they multiply), and loaded into a vector, then the poly- 
nomial would be the inner product of the two vectors. (Inner product of [y-jJ 

and [z±] is l y±Zi*) 
i 

Getting back to our original problem, where the polynomial was a function 
of {ui ,U 2 , . • .u m } as well as {xj ,X 2 , • . . ,x n ) , we must come up with a similar or- 
dering scheme so the loading of the coefficients into a vector will be unique. 

Take all possible polynomial terms (ignoring coefficients) and divide 
them into the sets and subsets determined by their degrees as described above. 
For each set of terms of degree p, order the subsets by the degree of u In the 
terms (the subset of terras whose degree of u is zero come first, the subset 
with degree of u equal to p come last). In the ordering of a subset whose de- 
gree of u is k, take the first element of the ordered set of orbit represents- 

j 

tives, and multiply it by each element of the ordered set of orbit rep- 

resentatives of x j , i.e., G(p-k),n* Take in order the rest of the elements of 
^k,m an< ^ multiply each by the elements of G^p_j c ) >n , in order. This orders the 
subsets. The sets having been ordered by the degree of the terms, all ele- 
ments are ordered. Another example is in order. Taking m = 2 and n = 3 and 
loading a vector of representatives in the order above we have Figure 2.1. 

Now loading a vector of coefficients in the same manner as before, the poly- 
nomial is again the inner product of the vectors. 

The methods used so far have not used tensors at all, only the character- 
istics of polynomials. The vectors of ordered orbit representatives, however, 
are very similar to symmetric tensors. The set of symmetric tensor basis ele- 
ments (over the same sets of variables {u-^} and {x^}) is bijectively related 
to the elements of the vector above. 


r *i 

xi 


ului 


U 3 X 2 X 3 

x 2 


uiu2 


113x3x3 

x 3 


U2U2 


uiuixi 

U 1 


xixixl 


u lul x 2 

u 2 


x l x l x 2 


u l u l x 3 

X1X1 


x l x l x 3 


uiu2 x l 

x l x 2 


X 1 X 2 X 2 


U 1 U 2 X 2 

x l x 3 


• 


uiu 2 x 3 

X 2 X 2 


x 3 x 3x3 


U2u2 x l 

X 2 X 3 


uixixi 


U2u2 x 2 

X 3 X 3 


u l x l x 2 


U 2 U 2 X 3 

uixi 


ui x l x 3 

* 


uiuiui 

u l x 2 


. 


u l u l u 2 

u l x 3 


u 1 x 3 x 3 


uiu2U2 

U 2 X 1 


U 2 X 1 X 1 


U2U21- 

U2 X 2 


U2X1X2 


xixixixi 

U2' x 3 


• 


• 



• 


- 


continued 


continued 


Figure 2.1 Example Vector Loaded with All Possible Polynomial 
Combinations of the set (xj ,x2,x3,ui ,U2} 
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To show this, first we must look, at the generation of symmetric tensors. 
If (ui , u2 , . . . »u m } and (xi ,x 2 i • • • » x n} are viewed as elements of vector spaces 
of dimension m and n respectively, then they can be seen as {ujwi ,U2W2, • • • , 
u m w m } and {xiei ,X2e2, ■ • • ,x u e m } where (w^} is a basis for the space U of dimen- 
sion m ’*nd {e^} is a basis for the space X of dimension n. Furthermore, 
the bases (w<) and (e^} are ordered so that (u^) and (x^J can be seen as vec- 
tors 


-Ull 


'xi ' 

u 2 


x 2 

• 

• 

and 

• 

• 

• 

_ u m . 


■ 

- x n . 


where an element in the k fc h position is understood to multiply the basis 
element. 


Having defined bases, a multilinear mapping P 

p :UxUx... xUxXxXx... x X -*• V , 
V J V. ^ 


k times 


p-k times 


where the iiraension of V is will be clearly defined if we say what It does 
to the basis elements. Let us further suppose P is p-linear. Then we can 
form the tensor product 

®!UxUx...xUxXxXx...xX-»-U©U®... ®U®X©X®... ®X 

V. ✓ V _ / V ^ ✓ V / 


Y 

k times 


Y 

p-k times 


k times 


p-k times 


where ® (w-i ,wi ,...,wi ,e4 ,e-< ,.,.,ei ) “ w-j ® w± ® . . . 0 w< ® e-5 

V V k J 1 V -’p-k X 1 2 k J 1 


® « ® 6-^ • 
J p-k 
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Basis elements will be ordered lexicographically. Again, we will refer Co se- 
quences of integers interchangeably with the basis elements. That is, we will 

assume for [iji2 , • • • ,ik3 the basis element [w£ © w^ ® ... 0 «i ]. For i = 

12 . k 

k 

i i i2 • . . ik and j = jlj2***jk» l^iy^y^ order the elements of G such that if i 

precedes j, then for the smallest a with i a * j a we have i a < j a* Similarly 
p-k 

order G . Then the ordered basis for U®U© ... © ® X ® X © ... © X is 

n s y ' Y " 

k times p-k times 

obtained by taking the tensor product of each element of the ordered group 
k p-k 

G and every element of G in order. Thus, if k = m = n = 2 and p - 4, 
m n 

2 k p-k 

G = G = (11, 12, 21, 22} - G 
2 m u 

The ordered basis is (using (w^} and (e^}) 

* wi ® wi ® ei ® ei" 
wj ® wi ® ei ® e2 
wj ® wj ® e2 ® el 
wj ® wj ® e2 ® e2 
wi ® w2 ® ei ® ei 
W 1 ® w2 ® ei ® e2 
® W2 ® e2 ® ei 
wj ® w2 ® e2 ® e2 
W2 ® wi ® ei ® el 
W2 ® wi ® ei ©2 
W2 ® wl ® e 2 ® el 
W2 ® wi ® e2 ® e2 
w 2 ® w 2 ® e l ® e l 
W2 ® w2 ® ei ® e2 
W2 ® w2 ® e2 ® el 
W2 ® W2 ® e2 ® e2 
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Define the mapping 


P P p 
T q = a X + 0 X/AS 


by 


HgCe ® e ® . . . ® e ) = a 


j lj 2* r • Jp 


e ®e , (1) 

jl 12 jp 


il 12 *p 

where j = [j]J2***jp] is the representative of the orbit to which i = 
[ili2***ip] belongs, and 

3lj2***jp mi !m2 ! . • • m n ! 


where mj, is the number of occurrences of the integer £ in the sequence of 

A 

integers i, and 0!-l. Equation (1) can be rewritten as 

and ej is referred to as the orbit representative for e^. Defining 

i 

T*(X) = R © X © X 2 <3r X 3 9 . .. , Xi = ® X, 
then ir g can -be extended in a unique way to 

tt s = T*(X) + T*(X)/AS*, 

where tt s is still defined by equation (1). Note 

^sC^i) “ t, 1 < i < n. (2) 

P p 

The space ® X/AS is the space generated by the orbit representatives e-j, j £ 
Gp >n . Extending this idea, 

T*(X)/AS* = R ® X/AS 1 © X 2 /AS 2 © X 3 /AS 3 © ... . 

i P P 

By equation (2) above, X/AS 1 = X. Each AS is the kernel of applied to ®X. 

So if A is in AS* 3 , then ^(A) = 0. If 

A - I p a i e i , 
ieG 

n 


then 


tt 8 (A) = I al ( I a 1 )-!. 


(3> 


jeG 


P,n 


ieA-j 
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where Aj is tl e orbit to which j belongs. Now, tt s (A) = 0 implies 

l a 1 = 0, for all j e G p>n . (4) 

isA- 

On the other hand, if the components of A satisfy (4), then by (3) tt s (A) = 0. 
Tensors whose components satisfy Equation (4) are called antisymmetric and are 
elements of AS . AS* is an ideal in T*(X), where 

AS* » AS 1 AS 2 <J> AS 3 & ... 

q 

To see this, let B be in ®X; if 


then 


B = J bJ ej 

j 


TTg(A ® B) = ir s (I aibie^ ® ej) 

klk2« * . kp kp+i . . . kp+q 

= l ( 1 a b )e£, 

£eG p+q,n keA * 

P+q 

where A£ is the orbit in G to which l belongs. But 

n 

ki...k p kp+^.t.kp+q k p 4-x...kp+q 

l - a b = l l ( l a">) b 

keA£ V k"eA£i meA^' 

where l- is the orbit representative of any subset of q integers from 

\ 

^ £ 1» £ 2» , »* j-^p+qJ » 

A£» is the orbit to which V belongs, 
k = Ckp+ikp+2 . . *kp+q ] , 

k’ is the orbit representative of the set { {*•! , ^2* • • » £ p+q )~ 

{ kp+1 ,k p +2 , • « • , kp+q } } , 

A^i is the orbit to which k* belongs. 

And from Equation (4), 

I a m = 0, 

meAj,. i 


so 


tt 8 (A ® B) = 0. 
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Similarly, 


ir s (B © A) = 0, 


v P 

and AS* is an ideal. The space ©X/AS is Che pch symmetric tensor space re- 
ferred to earlier. 


The development of the basis ordering for symmetric tensors is similar to 
that used earlier for the polynomials. The difference used here will be that 
each of the subsets earlier will correspond to different tensor spaces. 

Taking the direct sum of all of the tensor spaces, generate a new space whose 
basis is bijectively related to that of the polynomial space. For example, 
m = 2, n = 3 (as before for the polynomials) gives a basis 


e l 

e 2 

e 3 

wi 

W2 

ei ® ei 
ef © e2 
ei ® e3 
e2 ® e2 


Note: We use the same symbol ® 

in the quotient. Other pos- 
sible symbols, such as v, 
could also be used. 


e3 ® e3 
wi ® ei 

wi ® w\ 
W 1 ® w 2 
wy ® w2 


! 

-1 
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By taking tensor products of the vectors 

u]_w]_ + ... + U m w m and xjex + X2e2 + ••• + x n e n 
terms of the form 

u i x j w i ® e j 

result. If we continue taking higher order tensor products, the result is 
polynomial coefficients of the basis elements. If we then apply r s to the re- 
sulting tensors, then only the orbit representatives of polynomials and basis 
elements appear. Thus this symmetric tensor product is the same dimension as 
the polynomial vector space. 


In second order tensors, looking at only x terms, x 


metric basis is (ei ® ei, ei ® e2, e2 0 e2)* All second 

2 2 

terms are elements of (x^, x l x 2» and x^) 


= [xxx2l'» the sym- 
degree polynomial 


x l 

© 

X 1 

— 

x 2 

*1 

© 

ei 

_ x 2. 


- x 2_ 


X1X2 

ex 

© 

e 2 





X9X X 

e2 

© 

ei 





2 








X 

2 

e 2 

© 

e2 . 


2 

r x * 

1 

xix2 

X2X1 

2 
x 

2 “ 


(assuming the basis elements). 


Then, as described above, we don't want to distinguish between elements 
which arise from permutations of other elements, so we apply tt s . Here in 


matrix form, 
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1 

0 

0 


0 0 0 ' 

1/2 1/2 0 ; 
0 0 1 

a 


TTjj(x ® x) 


2 

X 

1 

x l x 2 



All second degree polynomial terms can then be expressed as a unique linear 
operator acting on this tensor. (This linear operator can be viewed as a ten- 
sor and the polynomial generated by a contraction. ) Let us look at a poly- 
nomial 


2 


S x 


1 


+ 7 xjx2 + 4 



Using the first notation this is expressed j.s the inner product 


[5 7 4] 


2 

x 

1 

xix2 

2 

x 

1 2 J 


Using tensor notation this is 


(unsymmetric) 


2 


' 5 1 


X 

1 

a 

2 

xix2 


© 


7-a 


X 2 X 1 

4 . 


2 

. x 


x 

2 


where the operator 


' 5 “ 

a 2 
® 

7-a 

4 
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2 

takes the first element (x^) and multiplies it by 5 and takes the second ele- 
ment (xjx2) and multiplies it by a, and so forth. Note that this is not 
unique. In symmetric notation this is: 


o 


'5 ' 


r x“ 1 


(2) 

i 

7 

a 

xix2 

4 _ 


2 

X 

L 2 J 


In symmetric notation this iv unique. This carries through to higher order 
tensor products as well: every polynomial has a unique representation using 

symmetric tensors. This symmetric contraction has not been defined yet but 
its action here is obvious. Parentheses around the number above the contrac- 
tion symbol indicate that it is a symmetric contraction. 

When representing a polynomial in tensor form, the polynomial is expres- 
sed as a sum of coefficient tensors contracted with a tensor product of state 
and control vectors. Each tensor contraction Is associated with one of the 
subsets described earlier. That is, the terms of the polynomial which have 
*-he same degree and have the same degree of u are isolated and will be in- 
volved in the same tensor contraction. Using the example on page 14, the 
terms of degree two with degree of u equal to two are a3uju2 and a4ul^* The 

sum of these terms is represented by the tensor contraction 

2 _ 


a4 i 

(2) 

u 

1 

2 

83 

© 

ufu2 

= a 4 u ^ + a 3 u l u 2* 

o j 


2 

u 


*— 2 

As with the contraction above, each of the subsets can be associated with a 
unique tensor contraction. The ordering of components in coefficient tensors 
is determined from the pertinent lexicographic ordering. 
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Let the symmetric contraction be defined in a manner analogous to normal 
contraction. That is, for v( r ) = V r /AS r , 

(r) 


: Ui ® V*( f ) x v(r) © U 2 + ® U 2 


where 


(r) 


il ±2 


© (w^ ®e ®e ® ... ® e , ej^ ® ej^ ® • • • 8 ej ® v j ) = 

il i2 i r 

<e ,ej^Xe ,ej^>...<e ,ej > w± ® vj 

where 

(e*-} is a basis for V* 

{ej} is a basis for V 
{wj[} is a basis for Uj 
{vj} is a basis for U 2 

il < i 2 < ... < i r and j 1 < J 2 < — < Jr- 

This map is bilinear. The spaces Ui and U 2 are optional and can be any linear 

spaces. For the polynomial representations above, the coefficient tensors are 
1 

assumed to be in V*( r ) and their basis alements were assumed relative to their 
positions in the tensors. Thus, 
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a 3 

0 


= w^ ® w^ + a3 w^- ® w 2 + 0 w 2 ® w 2 


and 


34 

(2) 

ui 

a 3 

_0 

© 

uiu2 



L u 5J 


(2) 2 

= (a4 W 1 ® + a3 w^ ® w 2 ) © (uiwi 8 wj + uiu2wi ® w2 


+ U2W2 ® W 2 ) 


= a4ui + a3uiu2 . 
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i 

i 

It has now been shown that every polynomial has a unique representation 
! in terms of symmetric tensors. Furthermore, it has been shown that this re- 

presentation is natural in the sense that each symmetric tensor is associated 

i 

! with a subset of terms of the polynomial obtained by separation by degrees. 

This is not the only tensor representation possible. As was discussed 

s 

earlier, it is possible to use the unsymmetric tensor. This representation is 

i 

not unique for nonlinear polynomials but is necessary for almost all of the 

( 

computations used to calculate the feedback tensors. Since it is natural to 
! write polynomials in terms of symmetric tensors, yet unsymmetric tensors are 

j used for the calculations, a way of changing tensors from one type to the 

I 

other is necessary. In the programs, this is accomplished using the sub- 
I routine SYM. 

| There are five ways subroutine SYM can be used, corresponding to the op- 

tion argument, I0PT, of SYM equalling 1, 2, 3, 4, or 5. There are 2 separate 
: options each for symmetric to unsymmetric and unsymmetric to symmetric trans - 

J 

formations. One option is for a covariant and one is for a contravariant 
J transformation. The fifth option is for an unsymmetric tensor to be trans- 

formed to a symmetric tensor then back to an unsymmetric tensor. This last 

J 

option is useful because the resulting tensor is symmetric in another way. 

When a symmetric tensor is transformed into a larger dimension "unsymmetric" 
tensor, the new tensor will still have certain symmetric properties. The com- 
J ponents of this tensor which are in the same orbit (the orbit corresponding to 

"j the basis elements involved) will all be equal. They will each be equal to 

J 

the component of the reduced basis symmetric tensor corresponding to the orbit 

■j 

1 representative divided by the order of the orbit, if the tensor is contra- 

-i 

variant in the basis elements involved (if the tensor is covariant in those 


1 


31 


basis elements, then each component will be equal to the corresponding com- 
ponent of the symmetric tensor)* This new tensor, call it A[p] # [q], will thus 
have the property that: 

i il 52 jp kl k2 k q 

if A[p] [q] = a e^ 0 w ©w © ... © w ® e © e © ... © e , 
j » k 

p 

J ** EJ 1J2 — Jpl £ G , 

m 

k - [kjk2.. .kq] e G * , 

n 

i i 

then a - a , for all e S D , x 2 e S 0 . Square brackets around 

"l(j ) ,iT2(k) j,k 

the indices will indicate this type of symmetry. 

As noted above, the symmetrization of tensors is different for covariant 
and contravariant tensors. For contravariaut tensors the method is analogous 
to the choice of polynomial representatives. For example, when choosing the 
quadratic representatives when x e V, dim V = 2, it was seen that the proper 
symmetrization (or projection onto the symmetric space) was 



If one wishes to symmetrize a covariant tensor, such as the coefficients cor- 
responding to the quadratic polynomials above, then the proper symmetrization 
is (assuming all coefficients are 1) 



1 



»— 

0 

0 

0 


1 


" 1 ' 

0 110 


1 

=3 

2 

0 

0 

0 
, ...1 


.1. 


. 1 . 


For the symmetrization to be valid, the result of contractions in the sym- 
metric tensor space must be the same as contractions in the original tensor 


space. This is seen by 


' 1 ' 

2 

’ X 1 

1 

® 

x X x2 

1 


x 2 xi 

. 1 . 


2 

L x 2 J 


2 2 
= xj, + xjx2 + X2X1 + x2 


and 


V 

(2) 

X 1 ' 

2 

o 

x l x 2 



2 

1. 


x 2 


2 2 
xi + 2xix2 + x2 ♦ 


The results are clearly equal since xix2 = x 2 x}. The reverse process, going 
from the symmetric to the normal tensor space, also involves two types of 


symmetrization. For the example above, the contravariant process is 

2 


1 

0 

O' 

2 


X 1 " 

0 

1 

0 

X 1 ‘ 


xix2 

0 

1 

0 

x l x 2 

2 


X1X2 

.0 

0 

1. 

x 2 


2 

- x 2 . 


while the covariant process is 

1 


0 

0 1/2 

0 1/2 

!_0 0 


0 

0 

0 

1 





'1 ' 


2 


1 


.1 _ 


1 

J 


. 1 . 


For. this symmetrization to be valid the result of the contraction in the 
tensor space must be the same as it is in the symmetric tensor space. For 


this example 


egg . ■ tv 


'r 


X 1 


' 1 

0 

0 

i 

2 

x l x 2 


0 

1/2 

0 


e 


= 




i 


x l x 2 


0 

1/2 

0 

,i. 


2 

. x 2 . 


. 0 

0 

1 


r 


'1 0 0" 


' X 1 

2 

2 

0 1 0 


xix2 


® 



2 

.1 J 


0 1 0 


. x 2 . 



.0 0 1. 



- [1 


l 

o 

i] Lo 


0 0 

1/2 1/2 
0 0 


0 

0 

1 


0 

1 

1 

0 


2 

xi 

x l x 2 

2 

x 2 J 


= [1 


1] 


1 0 
0 1 
0 0 


- 

' X 1 


_ r 

(2) 

*1 ' 


x l x 2 

= 

2 

® 

x l x 2 


2 




2 


. x 2 J 


. 1 . 


. x 2 . 


In the general case, this is made more formal as follows. Select 
p P 

tensor, f e T (V), dim V = n, and 

q q 


p - i l i 2*** i p 
f “ l a 
q Jl j 2 * • • jq *1 


J1 


. " e 


(p) 

Then define f by 

q 

Cp) 


f - l ^ e(i) ® eJ, where (i) e G p n , j e G q , 

0 (i) , j 3 n 


and where 


(i) - 1 * 

a j = I 777 a . > 

4eA l A l 1 


q p 

j e G , £ e A c G , 
n n 


A is the orbit in G to which i belongs, 

n 

|A| is the number of elements in A, 
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and 


e (i) = e ® e ® ... ® e , 
il ±2 i D 


.1 1 j 2 jq 

eJ=e ® e © . . . ® e . 


Similarly, f is defined by 

(q) 


and where 


“ I a ei © e^J), where i e G P , (j) e G q n , 

i, (j ) Cj) n 


a = > a , 

(j) keA k 


p q 

ieG,keA c G, 
n n 


and A is the orbit in G to which j belongs. 

(P) " 

Then, f is defined by 

(q) 


f / P ! = l a, .J e(i) eCJ), where (i) e G n , ( j ) e G q n . 


and where 


Ci) v 

a . . ~ L 


1 i 

a 


(j) JleA lf keA2 l A ll k> 


p 

i a Aj[ the orbit in G to which i belongs, 

n 

q 

and k e A 2 the orbit in G to which j belongs. 

n 

The difference between covariant and contravariant symmetrization is seen to 

be that one divides the sum by the order of the orbit for covariant symmetri - 

zation. The contravariant symmetrization is obtained by just summing over all 

P (p) 

elements in the orbit. In transforming f to f , one can take three ap- 

q (q) 

proaches. The covariant and contravariant symmetrizations can be accomplished 
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simultaneously or one can be done before the other; the result is the same for 

(p) (p) p q (p) 

each. For notational purposes, f e T (V), f e T (V), and f e 

^ ) q q (q) (q) (q) 

t p (V). 

(q) 

The other type of symmetric tensor is a tensor in the normal tensor space 


obtained from a tensor in the symmetric tensor space. To obtain this tensor, 

(p) 


(p). , P. . (p) 

the transformation from T (V) to T (V) must be defined. Let f 

Ip) P/ , (<,) ’ w 

then f e T (V) is found in the following manner. If 

Lq I q 

>> r (k) ' 

f = l a e( £ ) ® e'-*', 

(< ^ ) (A),(k) 00 


e T (V), 

(qj 


where 


then 


(£) e ^p,n> 00 e ^q,n> 

[p] v i , 

f r . = Z a e ± ® eJ f 

{qI i,j i 


where 


p q 

i e G , j £ G , 
n n 


and where 


(A) 


j 1M OO’ 


i 1 

a = 


A 2 is the orbit in G to which j belongs, 

n 

(k) is the orbit representative for A 2 , 

p 

and (£) is the orbit representative for the orbit in G to which i belongs. 

[p] il n ±2 

f will have the property that any two components a and a will be eaual 

W p Jl J2 

if ii and i2 come from the same orbit in G and and j2 come from the same 

n 

q p 

orbit in G . A tensor f is said to have a covariant part and a contravariant 
n q 

part, where "part" refers to the corresponding indices and baais elements. A 


basic fact about symmetrization is that symmetrization commutes with contrac- 
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tion in two cases. The first case is one where the symmetrization is per- 
formed over the part of the tensor which is not being contracted. The second 
case is any symmetrization when one of the tensors is symmetric (in the sense 
corresponding to the square brackets above) with respect to the part of the 

tensor being contracted. An example of the first case is shown with the con- 

p q q 

traction f © b . Let 

q 

p ili2***ip Jl Jq 

f = a e ® . . . a e a e ® . . . © e , 

q jlj2***jq ^1 

q kik 2 -..k q 

and b = } c e ®...©e. 

kj k q 

Then, 

p q q ili2*.*ip jlj2‘*Oq 

f ° b = £ a c e ® . . . © e . 

q 3 1 3 2* • • -lq *1 i p 


The symmetrized version of the result is 


where 


P q q r (i) j 

*a(f ® b > ** l a c e (i) » 

' q (i) » j J 


(i) e ^p,n» J £ 6 » 


n 


and where 


Ci) j v i i i 
a j c ' l 


lei W Y ’ 


q p 

j e G , i e G , 
n n 


and A is the orbit in G to which i belongs. 

n 

p 

If f had been symmetrized first, then 

q 

(p) q q . r. (i) 3. q /V k 

f ® b = ( l a e(i) ® e ) ® (), c ej,.) 

q (i) , j j 
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where 


r CD j 

Zac e(i) 

(i)J J 


(i) v l * 

J JteA ! A I j 


p q q . (i) j (i), j 

This equals TJ g (f ® b ) if a c = (a )c. . This equality holds since the 

q j j 

sum is over Z not j. An example of the second case can be shown using 

P P i i 

the same contraction. Assume that f = f ; that is a = a , for all 

p q q Cq] -i ' O) 

O £ Sq. Then f © bq will be the same as before 

[<?] 

p q „ il i 2* • *ip j 1 j 2* • • 3q 
f © bq = 1 a c e ® . . . ® e 

Eq3 J 1 j 2 * * » j q il ip 


where 


and where 


I ^ ( I cS) e if 

i,(A> * jeA 


p q 

i e G ,(Z) e G. j e G , £ is any element from A, 
n n 


.1 e A, the orbit for which (£) is the orbit representative, 

p 

the first sum runs over all i © G and (Z) e G n n , 

n q,n 

the second sum runs over all j £ A, and 


e i = e 




The equality holds because the elements in each orbit A are equal. Now, 


P q 
f 0 bq 

[q] 


I (a ( I c')) ei 

i,(£) Z j eA H 


I a ( l y~ c^ ) )e± 

i,(Z) & jeA M 
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where 


1 ^ E G q,n» 

i,(A) 


d 1 = J A | a 1 - I a 1 
<*> * jeA J 


and 


■.w .JL j c3 . 

I A j eA 


But 


f P = I d e-j© 

(q) (JO 1 


and 

b(q) - l C W e(A), 

(JO 

thus 

f P ® b(q) = £ d cf^e-£ = f P ® b^, 

(q) i,(JO (*) [q] 

and the contraction operation commutes with symmetrization. The exact same 
result is easily established when bq = bfq] is symmetric over the indices con- 
tracted. *»ote that this result applies only when the symmetrization of the 
part of the tensor over which there is a contraction is performed on both ten- 
sors (otherwise the contraction is not defined). 


As stated above, the program SYM accomplishes the cynunetrizations in the 
computations. SYM first checks to see if the input tensors and their associ- 
ated dimensions make sense with the option requested. If these acceptable 
input conditions are met, SYM proceeds with the calculations. There are three 
main sections of the subroutine. The first tw> sections set up a map between 
components in the larger dimensional tensor from the normal tensor space and 
the smaller dimensional tensor in the symmetric tensor space. The third sec- 
tion carries out the map so defined and calculates the components of the de~ 
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sired tensor. 

The first section of the subroutine associates with each tensor component 
in the larger tensor a base ten number. Tensors are stored as vectors and the 
base ten number is the location in the vector of the orbit representative cor- 
responding to the component in question. First, the orbit representative for 
each component in the part of the tensor to be symmetrized is found. This is 
done by taking the sequence of integers corresponding to the basis element and 
reordering this sequence so that it is an orbit representative. This is dont 
for the covariant and contravariant parts of the tensor, indices which depend 
both upon the control variable and state variable. From these sequences of 
integers, and the sequences corresponding to the parts of the tensor which are 
not symmetrized, the position of the orbit representative in the original 

p 

large dimension tensor can be calculated. In general, if i = [iii2...i p ] e G 

n 

is the sequence of integers, then this sequence is mapped to the number 

<*i “ 1 (i-pl)nP 3 + 1. 
j = l 

This number can be viewed as the base ten number corresponding to the base n 
number 

(il-1 )(.t 2 -1)... (ip-l-1 >(ip-l) + 1 

where the parentheses separate digits in a number and do net stand for multi- 
plication. The "1" is added in each case so that the lowest integer sequence 
[11...1] corresponds to "1" and not ”0”. In other words, it corresponds to 
the first element of the tensor which in this FORTRAN is the "1” entry. If 
there are more than one parts of the tensor, then more than one number has 
been calculated, each standing for a part of the tensor. The number which 
shall be used to correspond to this tensor component will be the sum of each 
of these numbers times the highest number possible for the next lower part of 


the tensor. For instance, if A e (®V) ® (®U*) ® (®V*) and dim V - n, dim U 

p.q 

— m, and one wishes to calculate the desired number for the component 

ili-2* • # 
a 

1112* • •jp»kik2...kq j 

then first the three numbers for the sequences of integers individually are 
calculated: 

= (ii-l)n r “l + (i2 _ l)n r- ^ + ... + (i n _i-l)n + (i r -l) + 1, 

«j = (Jl-DmP" 1 + (j2 _1 )“ p “ 2 + + dp. 

a k “ (ki-l)nq - l + (k2~l)nq - ^ + ... + kq. 

The desired number is 

a — (a^— l)mPnq + (otj— ljn^ + oq c -, 

(Note that one had to be subtracted from ot^ and otj prior to the multiplica- 
tions. This is because the first element in the tensor must have a value of 

p 

1. Thus an alternative definition for the a^, for i £ G , could be 

n 

i a i = ^ (i-j-l)nP-j. 

Then the definition for a above would be 

a = mPnq + a j n3 + + 1 . ) 

A vector of the same dimension as the large dimension tensor is used to store 
the number corresponding to each tensor component. Call this vector the large 
map vector. 

The second section of the subroutine puts the distinct numerical values 
of the large map vector into another vector. Call this vector the small map 
vector. The small map vector will be of the same dimension as the smaller di- 
mension symmetric tensor since each distinct numerical value in the large map 
vector corresponds to a different orbit. A third map vector, called the count 
vector, is used to count the number of repetitions of each distinct numerical 
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value of the large map vector. Thus, each component of the count vector is 
the number of elements in a distinct orbit. The count vector is the same size 
as the small map vector. 


The third section of the subroutine actually calculates the components of 
the new tensor. Say the desired tensor is the symmetric one. Each component 
of the symmetric tensor is set to zero. Then, the ith component of the ori- 
ginal tensor is added to a particular component of the symmetric tensor. The 
particular component is found as follows: find the component of the small map 

vector which has the same value as the ith component of the large map vector. 
If this Is the jth component, then the particular component of the symmetric 
tensor is the jth component. After these maps are complete the sums are di- 
vided by the corresponding components of the count vector for a contravariant 
symmetrization. For a covariant symmetrization the sums are the desired com- 
ponents. If the desired tensor is the larger dimension normal tensor, the 
process is similar. Each component of the larger tensor is set equal to a 
particular component of the symmetric tensor for contravariant symmetrization 
or equal to that component divided by the corresponding component of the count 
vector for covariant symmetrization. The "particular component" referred to 
here is the same as the "particular component" referred to above. 


This chapter has presented two main ideas. First some basic tensor con- 
cepts were discussed. Secondly, the symmetric tensor was shown to he a na- 
tural representation for polynomials. This latter part went on to describe 
the relationship between symmetric and unsymmetric tensors and to describe the 
subroutine SYM. The next chapter will describe a few more subroutines and the 
functions they perform. A good understanding of these subroutines is helpful 
in following the somewhat involved derivations in Chapter IV. 


CHAPTER III 


PARTIAL SOFTWARE DESCRIPTION 

This chapter describes several subroutines used to solve the problem. 
The functions they perform are described in general and are shown by way of 
example. Also, the actual FORTRAN statements used to carry out the sub- 
routines are described. 


PERM 

The subroutine PERM is used to reorder the basis elements in a tensor. 

It changes the normal pattern of first incrementing the covariant x powers and 
then the covariant u to first incrementing the covariant u then the covariant 
x. Its purpose is to ease the computations and to make sense of some terms in 
the equations. Its need can be demonstrated using a typical term In which It 
appears: 

(1,2) Qi, 2 0 K* • 

This terra arises from setting the coefficients of x to zero, and thus origi- 
nally comes from 

3 2 

Ql,2 0 K K 2 ® x2 ) ® x 2 ]. 

In this term, Qj > 2 is contracted three times with the expression In brackets. 
The expression In brackets has three contravariant powers: one contravariant 

u power coming from 


2 

and two contravariant x powers from x . The result of the contraction opera- 
tion is a scalar which is a fourth order polynomial. Thus, in setting the co- 

efficients of x to zero one must get a closed form expression for the co- 
il 

efficient of x . If one were to change the above original term to 
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v/ . << _ 

(1,2)Q 1>2 © [x © (K* 0 x )} 

where (1,2) indicates a reordering of the basis, then the result is the same 
as before. The next step is to cuange this to 

1 4 

[0,2) Qi > 2 © K 2 ] © x . 

4 

The result is then the same, but the coefficient of x has been isolated. 

In the computations, this permutation must be carried out by the compu- 
ter. Since the computer stores all tensors in vector form, the permutation 

2 

must be described in terns of what it actually does to a vector. If x e R 
2 

and u e R , then Figure 3.1 shows how the permutation (1,2) Qj 2 is accom- 
plished. In the figure, part A shows what the actual scalar components of 
(1,2) Qi 2 will be in terms of the scalar components of Qj 2 . This corre- 

j 

sponds to the basis reordering shown in part B. Notice how the basis elements 
from the control space are after those from the state space, and therefore 
permuted first. If the tensor which is being permuted has contravariant 
powers, then, when computing the permuted tensor, the reordering of the co- 
variant basis elements must occur each time the contravariant indices are in- 
cremented. 

Let the original tensor be separated into three parts: the contravariant 

part, the co van ant part which depends on the control variable, and the covar- 
iant part which depends on the state variable. Let the dimensions of these 
parts be II, 12, and 13 respectively (e.g. if x e R n , u e R m , and the tensor 
has q covariant powers of the state variable, p covariant powers of the con- 
trol variable, and r contravariant powers of the state variable, then II = n r . 




0,2) Ql 2 (O 
0,2) Qi 2 (2) 
0,2) Qi 2 O) 
0,2) Qi 2 (4) 
0,2) Qi 2 (5) 
0,2) Qi 2 C6) 
0,2) Qi 2 (7) 
0,2) Ql 2 (8) 


= Ql,2 O) 
= Ql , 2 (5) 
= Ql ,2 ( 2 ) 
= Ql 2 (6) 
- Ql ,2 (3) 
= Ql 2 (7) 
= Ql ,2 (4) 
= Qi } 2 (8) 


original ordered basis 
f w 1 ® e 1 ® e 1 1 


1 1 2 

w © e ® e 

t 2 1 

w © e ® e 

X 2 2 

w ® e ® e 

2 1 1 

w © e 0 e 

2 1 2 

w 0 e ® e 

2 2 1 

w ® e © e 

2 2 2 

w ® e © e 


ordered basis after permutation 


1 1 1 

e © e a w 

1 1 2 

e © e. ® w 

1 2 1 

e ® e 0 w 

1 2 2 

e s e ® w 

2 1 l 

e ® e ® w 

2 12 

e © e 0 w 


2 2 1 

e 0 e ® w 

2 2 2 

e ® e ® w 


JA = 0 

DO 10 J1 = 1, II 

DO 10 J2 = 1, 12 

DO 10 J3 = 1, 13 

JA = JA + 1 

JB = (Ji-1) * 12 * 13 + ( J3-1 ) * 12 + J2 
10 B(JB) = A(JA) 


JA = 0 

DO 10 J2 = 1,2 
DO 10 J3 = 1,4 
JA = JA + 1 
IB = (J3-1) * 2 + J2 
10 B(JB) = A(JA) 

CALL PERM (Q12,Q12P,0 t l,2,I12,IDIMU,IDIMX~,3,3) 


Figure 3.1 The action of subroutine PERM is shown in A,B, and D, for the 
tensor 0^2. Part C shows the FORTRAN statements which ac- 
complish a general permutation. 
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12 = mP, and 13 = n^). Note that the dimension of the tensor is then the pro- 
duct of II, 12, and 13. The lexicographic ordering in the tensor is then 
equivalent to ordering three indices, say Jl, J2, and J3, lexicographically, 
where Jl e {1 ,2,. . . ,11} , J2 e {1,2,. ..12}, and J3 e {1,2,. ..13}. The permuted 
tensor would then have basis element ordering equivalent to the lexicographic 
ordering of Jl, J3, J2, where these indices are as above. FORTRAN statements 
which fill a general permuted tensor B from the original tensor A are listed 

in part C of the figure. Notice that the three DO loops step through tensor A 

while the correct position of tensor B must be calculated at ench step. The 
FORTRAN statements specifically for the case in parts A and B look like part D 

of the figure. Here B = (1,2) Qi, 2 and A = Qi, 2* Also, II = 1 , 12 = 2, 13 = 

ki k£ k 3 

4. In the original ordered basis, w ® e 0 e , 

J2 = 1 corresponds to ki = 1 

J2 = 2 corresponds to kj = 2 

t J3 = 1 corresponds to k2 = 1 and k 3 = 1 

J3 = 2 corresponds to k2 = 1 and k 3 = 2 

J3 = 3 corresponds to k£ = 2 and k 3 = 1 

, J3 = 4 corresponds to k 2 = 2 and k 3 = 2. 

k2 k 3 k]^ 

The ordered basis after permutation will be e © e ® w , with kj t k2, and 

k 3 as above. It is thus seen, that incrementing J3 before J2 , as the DO loops 

will, corresponds to the ordering of the original ordered basis, while incre- 
menting J2 before J3 corresponds to the ordering of the basis after permuta- 
tion. Thus, JA increments each time through the DO loops because it corre- 
sponds to the original basis, while JB is calculated as if J2 were incremented 
before J3. 

Subroutine PERM does the permutations. The actual statement which calls 
PERM to execute the permutation talked about is also in Figure 3.1. What each 
argument stands for is discussed in the software. PERM is fully described in 
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the software. It does have one option which was not described here. Oc- 
casionally a tensor will have two covariant parts which depend on the same 
variable (state or control). PERM can permute these two parts. A discussion 
of this would duplicate the discussion above, and is thus not Included. 

RAISE 

The raising and lowering of powers becomes necessary when one wants to 

equate expressions like the following: 

2 2 
V 2 © x 2 x* © vj © x x 2 © V . 

V* is obtained from V 2 by raising one covariant power (or equivalently V 2 is 
obtained from by lowering one contravariant power). V is obtained from V 2 
by raising two covariant powers. Raising and lowering powers change the type 
of the tensor. They do not, however, change the scalar components of the ten- 
sor. The result of raising or lowering powers is thus a tensor of exactly the 
same dimension and with exactly the same components as the original tensor. 
Often on the computer, the components are also stored in the same order as the 
original tensor. This is the case with V 2 , V^, and V^: on the computer they 

are identical. The differences between them come in their uses. As shown 

2 

above, they are used differently in contractions. Also, V 2 and V are sym- 
metrized differently. The difference in their symmetrization is described 
in Chapter II. 

In some tensors, the raising or lowering of powers does change the order 

2 2 

in which the components are stored. As an example, assume x e R , u £ R and 

it is desired to raise two powers of the state variable in Qi j2 c If the re- 

2 2 
sultant tensor is Q^, then Figure 3.2 shows what the components of will be 
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Qi Cl) 
Qj (2) 
Q* (3) 
Ql C4) 
Ql (5) 
Q* (6) 
Q* (7) 
Q* (8) 


Ql,2 

CD 

Ql,2 
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Ql,2 

(2) 

Ql ,2 
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Ql,2 
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►—+ 

ro 

00 


original ordered basis ordered basis after raising two powers 
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® 
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l 
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2 

w 

® 

e 
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e 2 

® 
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w 
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® 
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e 2 


e 2 

® 

1 

w 

U 2 

® 

2 

e 

Q 

2 

e 


e 2 

® 

e 2 


W Z J 


CALL RAISE (Ql 2 ,Q12R,0 , 1 ,2 ,2,1 ,0 ,IDIMU,IDIMX,I12,2) 


Figure 3.2 The action of subroutine RAISE is shown for Qj 2- The two 
covariant powers of the state variable are raised to get Q 
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in terms of the components of Ql^* The reordered basis is shown as well as 
what a call of subroutine RAISE would look like to accomplish the raising of 
powers in Q12. The description of the arguments of RAISE is included in the 
comments in the software. 


TRANS 

Subroutine TRANS transposes tensors. A transposition is the simultaneous 
raising of the first covariant power and lowering of the first contravariant 
power. It is usually performed on tensors with only one contravariant power 
such as Ap^q. Thus if 

j, i 9 i n k. K k 

© w * 0 ... w P 0 e ® e 0 ... © en, 


l p.q 


i 


2 * ’ 


• j, k,k 2 ...k e i ® w 

pi/ q 


then 


T il 

A p,q = l b ij 2 . • . j pJ k 1 k 2 . 


.k w 


11 


© e x 0 w 


0 


j k. k„ 
wP©e ©e^-0 


k 

© e q 


where 

i 

blj 2**' :i p ,k l k 2*** k q " a ^1^2***^ p ,k l k 2’ ’ * k q * 

2 2 

As an example, take Aj f i and transpose it. For u t R and x £ R , Figure 3.3 

T 

shows what the components of A^i are in terras of the components of Aj^i. It 
also shows the ordered bases before and after transposition. The actual 
FORTRAN statement which accomplishes the transposition Is also included. The 
arguments of this statement are talked about in the software. 


Transposition is used to factor out powers of x in terms like 


k-1 p+q-1 p-1 

(V fk ] © xtk- 1 !) 0 (A[ p ] [ q j 0 <K[ n J 


This is discussed in greatar detail in Chapter IV. 


n 

© 


xt n J) ® xfq3) . 
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T 


A l,l 

T 

(1) 


A 1,I 

(l) 

A i.i 

T 

(2) 


A 1 > 1 

(2) 

Al,l 

T 

(3) 

a 

A l,l 

(5) 

a m 

T 

(4) 


A i,l 

(6) 

A l,l 

T 

(5) 

S3 

A l,i 

(3) 

A l,l 

T 

(6) 

C3 

A M 

(4) 

A 1 >1 
T 

(7) 

3* 

A l,l 

(7) 

A l,l 

(8) 

S3 

A i,i 
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1 
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2 

w 
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2 
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2 

e 

0 
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1 

w 
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CALL TRANS (All, AliT, 1,1,1, 112, IDIMU , IDIMX , 1 ) 


Figure 3.3 The transpose of Aj^i is shown here, and is calculated by 
subroutine TRANS, 


1 

I 

I 

E 

I 
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TMULT 

The subroutine TMULT performs tensor multiplications. It forms the ten- 
sor product of two input tensors. The output tensor's dimension will be the 
product of the dimensions of the input tensors. Each component of the output 
tensor is a product of components from the input tensors. Every possible pro- 
duct of one component from the first input tensor and one from the second is a 
component of the output tensor. The order in which these products are placed 
in the tensor depends upon the types of the generating tensors. There are two 
main types of tensor products used in the solution of the problem. They are 


Lf 


i m 

K ® K 

j n 


and 


1 i 

V 0 K . 

* j 


This first tensor product is calculated as follows: if 


csji Q2* « • a i 


Yl Y2 


K. = £ a w®w ®...w 0e ® e . . . ® e 

j YlY2...Yj otx a 2 a ± 


and 


n 

Li 


H 


m - kik2* • .^m £l ^2 

K = l b w®w ®...w ®e ® e ...®e 

n £2&2*»*£n k l k 2 k n 




then 


where 


i m aia 2 ...a ± kik 2 ...k m 

K®K=>2, C w ® • . • ® w ® w ...®w ® 

j n YjY2* • • Yj£l£2* • • a i a i k l k m 

Yl Yj *1 £ n 

e ®...e ®e ...®e 


a l a 2* • * a i k l k 2* • * k m ai a2 ... a£ kik2...k m 

c = a b 

YlY2***Yj£l £ 2***£n YlY2***Yj £l£2»** £ n 
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For the second tensor product, If 

I t S 1 s 2 s £ 

V = £ v e^-Qe ©e ... © e 

l SJS2* • • s jj, 

then 

1 i t 0 ^ 02 ... aj si sj, Yl Yj 

V © K = £ c e t 0 w ®...w ®e & ... a © e ...e 

l j sjs2 . • .s£Y 1Y2* • *Yj “1 a± 

where 

t aia2**- a i h a l a 2*** a i 

c = v a . 

sis2-. .S£YlY2*‘*Yj S 2 S 2* • • s £ YlT2...Tj 

An example of the first tensor product and the actual calling statement from 

1 1 

the program i3 shown in Figure 3.4. The product calculated is ® K^, where 

1 i=m,j=n i 

K = l a ® el , 

1 i-1 , j~l 3 


and m=u=2 . 


Let each input tensor be separated into three psUts: the contravariant 

part which depends on the state variable, the part which depends on the con- 
trol variable and the covariant part which depends on the state variable. The 
second part can be either contravariant or covariant, but if the first tensor 
has covariant powers of the control variable, then the second cannot have con- 
travariant powers of the control variable. (This is just a constraint due to 
how TMULT was set up. If necessary this constraint can be removed by first 
using TMULT, then using an appropriate option of PERM.) Let the dimensions of 
the three parts of the first tensor be Nl, N3 , and N5 , and of the second be 
N2, N4, and N6, respectively. Then the lexicographic ordering for the output 
tensor is equivalent to the ordering of the six indices ranging from one to 
Nl, N2, N3, N4 , N5 , and N6 , respectively. The FORTRAN statements which calcu- 
late a general tensor product are shown in Figure 3.5, part A. The statements 
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CALL 


Figure 3.4 


=■ (£ a w-£ © eJ ) © (I © e 

11 i 1 1 1 , o 

= a a t w[ 8 »i ® e 1 ® e 1 + a a W 1 ® W 1 ® e 1 ® 


1 


1 2 


11 2 1 1 1 2 9 

+ a a wj ® wj ® e 4 ® e 1 + a a w^awj® ® e* 


2 1 


2 2 


I 2 


+ a a wj ® W2 ® e* ® + a a wj ® w2 ® e 1 © 


I 2 


'l 63 «»2 


1 1 


1 2 


1 2 ,12 _ . 
+ a a. w X ® W 2 ® ® e 1 + a a w^ ® W 2 ® ® e- 


2 1 


2 2 


2 1 2 1 io 

+ a a w? ® wi ® e* ® e^ + a a wo ® wi ® e A © e 2 
11 12 


21 9 1 2 1 9 0 

+ a a wo ® wi ® e z ® e 1 + a a wo ® wi ® e* © e^ 

2 1 2 2 


2 2 2 2 

+ a a w? ® w9 ® 8 e‘ + a a wo ® w 9 ® ® e 2 

11 “ 12 


2 2 
i a 
2 1 


2 2 

+ a a W 2 8 v?2 ® e 2 ® el + a_ a W 2 ® W2 ® e 2 ® e 2 


TMULT(Kl,Kl,K22,0,l,l,0,l,l,Ill,Ill,I22,IDIMU f IDIMX,NCALL) 


1 

The tensor product of with itself is shown here along with 
the program statement which calls TMU1T to accomplish It. 
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A. J=0 

DO 10 11=1 ,N1 
DO 10 12=1, N2 
DO 10 13=1 ,N3 
DO 10 14=1 ,N4 
DO 10 15=1, N5 

JA = l5+(l3-l)*N5+(Il-i)*N5*N3 

JB = (I4~0)*N6+(I2-1)*N6*N4 

DO 10 16=1, N6 

J=JB+1 

JB=JB+1 

10 C(J)=A(JA)*B(J'5) 


B. J=0 

DO 10 13=1,2 
DO 10 14=1,2 
DO 10 15=1,2 
JA=I5+( 13-1 )*2 
JB=(I4-1)*2 
DO 10 16=1,2 
J=J+1 
JB=JB+1 

10 C(J)=A( JA)*B(JB) 


Figure 3.5 These are the FORTRAN statements used to calculate the tensor 
product of A and B in the subroutine TMULT. 
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specifically shown for the case shown in Figure 3.4 look like the statements 
in Figure 3.5, part B. In Figure 3.5, the input tensors are A and B, while 
the output tensor is C. The description of the arguments in TMULT is in the 
software. 


TCONT 

Subroutine TCONT performs the tensor contractions necessary in the calcu- 
lations. This subroutine is very similar to TMULT in the manner in which it 
calculates the output tensor. The difference between TCCNT and TMULT is that 
in TCONT, each input tensor is separated into four parts instead of three. 

The first input tensor's parts are: the contravariant part which depends on 

either the control or state variable, the covariant part which depends on the 
control variable and is not being contracted over, the state variable covari- 
ant part which is not being contracted over, and the covariant part which is 
being contracted over. The second input tensor's parts are: the contravari- 

ant part which is being contracted over, the contravariant part not being con- 
tracted over, and the two eovariant parts. Let the dimensions of these eight 
parts be II, 13, 15, 17, 17, 12, 14, and 16, respectively. Note that 17 is 
the dimension of the part being contracted in each tensor. The lexicographic 
ordering for the output tensor is equivalent to the ordering of six indices 
ranging from one to II, 12, 13, 14, 15, and 16, respectively. Each element of 
the output tensor will be the sum of 17 products of two elements, one from 
each input tensor. The FORTRAN statements which accomplish this are shown in 
Figure 3.6. The similarity to Figure 3.5 Is apparent. 

There is another subroutine, TC0NT1 , which is almost identical to TCONT. 
TC0NT1 , however, has two additions. First, it does not zero the output tensor 
before calculating the output tensor. Thus the values originally in this 
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output tensor are just added to the new values and this tensor can act as a 
"running sum" of several contractions. Second, a scalar multiplication option 
is attached. This allows one to calculate the normal contraction and then 
multiply the result by a scalar. 


The arguments for both TCONT and TC0NT1 are described in the software. 
Each also has several options which put restrictions on the type of input ten- 
sors allowed. For instance, if the contraction is over powers of the control 
variable, then there can be no covariant powers of the state variable in the 
first input tensor. These options and restrictions are also discussed in the 
software. 


DO 5 J=1 ,DIMC 
5 C(J)=0. 

J=0 

DO 10 J1«1,I1 
DO 10 J2=l ,12 
DO .10 J3=l ,13 
DO 10 J4=l ,14 
DO 10 J5-1.I5 
DO 10 J6=1,I6 
J=J+1 

DO 10 J7=l ,17 

JA=J7+I7*(J5-1+I5*( J3-l+I3*( Jl-1))) 
JB=J6+I6*(J4-1+I4*(J2~1+I2*(J7-1) ) ) 
10 C(J)=C(J)+A(JA)*B(JB) 


Figure 3.6 These are the FORTRAN statements used to perform tensor 
contractions in subroutine TCONT. 


CHAPTER IV 


NONLINEAR OPTIMAL CONTROL 

This chapter contains two main parts. The first part uses optimization 
theory to obtain the Hamilton— Jacobi -Bellman (HJB) equation for the problem 
studied. The second part uses tensor theory to solve the HJB equation for the 
optimal feedback. 

DERIVATION OF HJB EQUATION 

The problem to be studied is that of minimizing a cost functional 

J = M(x(t|)) + / L(x(t),u(t), t)dt 

*•0 

subject to the system equation 

x(t) = f(x(t),u(t),t), x(t Q ) = x 0 , 

where x(*) e R n is a state vector, u(* ) e R m is a control vector, and t e 
i-o’tlJ - The upping f : R n x R m x [t 0 ,t]J R n is analytic in x and u and 
continuously differentiable in t. f satisfies f(0,0,t) = 0. 

The functional L : R n x R 111 x [t 0 , 1 1 3 * R is assumed positive definite, 
and M : R n R is positive semidefinite. Both L and M are assumed analytic in 
x and u. Let & denote the set of admissible controllers u(t), and assume is 
compact. Under these conditions an optimal control u*(x,t) exists and is in 
fl. 

Because u*(x,t) minimizes J, u*(x,t) minimizes 

r tl 

V(x,t) = M(x(ti>) + / L(x,u,T)dt for all t e [t c ,tlJ. (1) 

This is the. Dynamic Programming approach. V(x,t) is called the optimal value 
function and for any time t, it represents the "cost-to-go" for the problem. 
The function V(x,t) is a positive function whose derivative with respect to t 


57 


is negative. The derivative of V(x,t) with respect to t satisfies 


dV(x.t) 

dt 


+ L(x, u*(x, t ) , t) - 0 


when the optimal control u*(x,t) is applied. u*(x,t) satisfies 
and is in fact the u £ ft which satisfies 


this equation 


min [ d - V(Xyt) + L(x,u, t) ] - 0. (2) 

ueO dt u,t 

This is the famous Hamilton-Jacobi -Bellman equation and is developed with more 
rigor by Lee and Markus [5] and Buric [1]. This minimum is achieved by a 
u*(x,t) e Q so this function also satisfies 


S_ 

3u 


dV(x.t) 

dt 


+ L(x,u,t)] = 0. 

u,t 


(3) 


Equations 2 and 3 will be used In the next section to solve for V(x,t) and 
u*(x,t). .First, however, a few more things must be noted about the form these 
equations take. 


The function f was assumed to be analytic in x and u. This allows a 
series expansion for f in polynomial terms in the state and controller. This 
expansion can contain either a finite number of terms or an infinite number 
and if there are an infinite number f must be absolutely convergent in some 
neighborhood of (x,u) = (0,0). The expansion is written in the form 

p+q 

f(x,u,t) = Ax + Bu + £ ^[p],[q] ® utp] ® x^]. 

p+q >2 

Here the A[p],fq] tensors have one contravariant power in R n (the superscript 
is dropped for simplicity's sake), p cu variant powers in R m and q covariant 
powers in R n . The pair (A,B) is assumed controllable. The functions M and L 
also admit series expansions and these expansions are assumed to start with 
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quadratic terms. Thus, 

M(x(ti)) 


k 

1 M [k] ® x(t[ ) W 
k=2 


and 


L(x,U,t) 


i+j 

l Q [i ] [ j ] ® ut 1 ] © xtj ] 

i+j >2 

2 

x t Qx + u t Ru + Qi i © u® x 


+ I Q[i] , [j ] ® util ® xtd 3 , 

i+j >3 

Usually, the matrix representations for the linear part of f and the quadratic 
part of L are used. A, B, Q, and R are the standard matrix representations in 
the literature for the terms involved. 


The class of admissible controls is defined as 


1 m 

fl = {u(x,t) = l K ® xfaJ}, 
m=l W 

1 

where the tensors K are bounded piecewise continuous functions of t for t £ 
f ' [m] 

For this set of controls and using the series expansions for f, L, 
and M, Buric proves that V(x,t) has a series expansion, 


V(x, t) = l V[ k ] ® xtk] 
k=2 

where V[ k ] are piecewise continuously differentiable functions of t. From 

Equation (1), it is seen that V(x,ti) “ M(x(ti)), thus V[ k ](ti) = M[ k ], 

k = 2,3,.... V(x,t) is found using this final condition and integrating 

backwards using the equation for the derivative of V(x,t) with respect to t. 

Equation (2). This integration is carried out after solving Equations (2) 

1 

and (3) explicitly for the terras V[ k ] and K 

[m] 
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DERIVATION OF SOLUTION EQUATIONS 

The Hamilton-Jacobi-Bellman equation for the problem is Equation (2). 
In this expression, the first term nan be rewritten as 


3t 


V(x, t) 


+ 9v ( x >t> . 0 dx 


u,t 


3x 


dt 


u, t 


Now, it is known that 
dx 


p+q 


and 


~^=f(x,u,t) = l A[ p ] r q ] a u (pJ ® xM 
dt P +q>l 


“g"’” = I ~ v [k] 0 s I k v [k] ® xtk" 1 ? . 

3x k =2 9x k=2 


Substituting back into Equation (2), 


* K K-i p+q 

min f l V[ k j © x^kj + ( I k V[ k ] © xfk-1]) ® ( £ Ar p i r q i © uW ® xUl) 
uefl k=2 k=2 p+q>l * 


i+j 

+ £ Q [i ] [j ] © ufi) ® xUl] = 0 . (4) 

i+j >2 

To find where the minimum of this expression occurs, the partial derivative 
with respect to u is taken, and set to zero. There are three terms here. The 
partial derivative of the first term with respect to u is zero. The partial 
derivatives of the other two terms with respect to u are: 


k-1 


—[(Ik V [k ] © xtk-lj) © ( l A [p ] >{q] 

9u k=2 p+q>l 


k-1 


I I (k V [k] © xtk-13) © ( j-A [pUq] 

k=2 p+q>l 3u 


p+q 

© 


p+q 


u [p] ® *[q])J = 
u [p] © x [q]) = 


k— 1 p+q—l 

I I (k vtk] © xHl) 0 (p A[p | )[q] © u [p-l] ® x [qJ) 

k=2 p+q>l 


and 
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3 i+j 

T - < l Q[i],tj] 0 util © *tJl) = 

du i+j >2 

i+j-1 

l 1 Q[i], [j] ® uti" 1 - 1 ® xtJl . 

i+j >2 J 

Thus the minimum of the left member of Equation (4) occurs when 
r v 1 p+q— 1 

k=2 p+q>i (k V[k] 0 x k_1 } 0 <p A tpJJq] ® * [p ~ 1] © xtqj) 

i+j-1 

+ l 1 Q[i], [j] o uti-U ® X [ j ] = 0 . 

i+j >2 J 


(5) 


Also, at this minimum, Equation (4) will be satisfied. The acceptable controls 
u can be expressed as 

i ra 

u = Ik © . 

m I»J 


Replacing u by this expression in Equations (4) and (5) gives, respectively: 
jJ 2 V Ck] 0 xHO + ( l k V [k j © xtk-H) © 


, P p+q „ , m r , [pJ 

< i A tp3,[qJ ® tl K ® xW] ® xfql) 

p+q>l m LmJ 

P i+j , m fi] 

+ i . Q ti] . [j ] 0 (Ik,® xW) ® xtjl = 0 ; 

i+j >2 jji [ m j 

k=2 P +q>l Ck V[kI S x[k “ 1]) ® (p A f P 1 » [q 3 P ® il K| mJ © xfol/* 1] 

i+j-1 m [i-1] 

+ 4 Jso 1 Q til.fjl ® (I K o x lm]) « xtJJ = 0 . 

i+j >2 m [m] 


® x 


( 6 ) 


[q]) 


(7) 


These are the two equations which will be used to find the values of the ten- 
sors for the optimal performance function (V [k j) and for the feedback control 

^ K [ ra ] T ° get e q ua iions that are easier to work with the following must he 
done: 
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1. express each of Che terms in Equations (6) and (7) as coefficient tensors 
multiplying tensor powers of x. 

2. express each of the equations as coefficient tensors multiplying tensor 
powers of x. 

3. set each of the coefficient tensors equal to zero- 


The first term in Equation (6) is already in the desired form. A look at 
all of the other terms makes one realize that the first step must be compre- 
hending the meaning of 


[A] 


[ £ K 1 0 xM ] 
m 

A very compact form for this expression is actually relatively easy to derive: 


m 2 [m_ ] . 


(I K 1 e 1 X 1 " 1 ' k! ®* *"‘2 J ) 8 ... « (J K ; , ®- *'-*') (6a) 


1 [m ]. 


mi [®iJ 


m 2 




l i m l +m 2 [m +a,] cl m A [ m n], 

= V 7 (K 1 0K ) © x 1 2 ) a ... ® (£ K © x 1 ) 


mi m2 


mjj, ^ m £,^ 


(8b) 


(K 


© K 


®1 » m 2 « • • • > ro Jl ^ m 2^ 


© ... ® K ) 


mi+m 2 +. • . Hn^ [m.+m,+ . . .+m 0 3 
) © x 1 z * 


= y k a © xt^ . 
n-A I"! 


(8c) 

(8d) 


The step from (8b) to (8c) is just a generalization of the step from (8a) to 
(8b) in this derivation. To see that the step from (8a) to (8b) is valid, one 
must look at the tensor elements to see that they are the same. Since tensor 
multiplication is associative it is sufficient to show that 

, m l [m.] i m 2 [m„] 1 1 m l +m 2 [m +m„] 

(K 1 © x 1 ) ® (K 0 x 2 ) - (K ® K ) © x 1 2 . (9) 

[m^J [m 2 ] [m^] [m 2 ] 

To show this, 


K » l a 

[mj ^ 1^2* * * i l 


ji jo Jra, 

e ®e i ®e‘ i0 ...®e 1 , 
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K 1 = l b 

r -i *-* 


[m 2 ] 


Y L Y 2" * * Y " 


T, Y ? 'm 

e a ®e 1 0e^®-..©e z , 


x = I y 2 e 


l m l Cm. J _ 
k ® x 1 = T 

r 1 ^ 


il 


[nij] ^1^2’’*^ !n i 


j 1 j, Jm. m l 1 m l 

e ®e i ®e‘ i ®...0e 1 ® (y z e ) 


= I a 


1 1 ^2 ' 5m l 

y A y *. . . y e 

^ 1^2* * ‘^ni! i 


1 


Similarly, 


1 m 2 [m ] a 

K ® x 2 - l b 


[m 2 ] 


1 l m 2 


Y 1 Y 2 Y ™ 2 
y y . ..y e a 


Thus, the left side of Equation (9) is 
ii 


L« 


a 


J l j 2‘" j mi Y 1 Y 2’ * * Y m 2 


11 J2 Jm l Yj Y 2 Ym 2 

y ...y y y ...y e 0 e a . (10) 

i l 


Evaluating the right side, 


K ® K 1 = (l a 

[mj] [m 2 r 


il 


JlV-J.! ± 1 


jl il ~ Jmi 

e ® e 1 ® e' ® ... ® e A ) 


a b 


Y 1 Y 2 


m 2 , 


Y l Y 2*** Y m 2 


e a a e ®e ®...®e ) 


ii i2 


imj Y j 


Ymo 


il a ji —i 1 t --t 

£ a b e ®e a ®e' JA ®e' J ^®«..®e x ®e i ®e <:L ®...®e ^ ) 

J l 3 2* ,,J ini Y 1 Y 2" ‘ * Y m 2 i l 


where the ordering of the basis elements in the tensor product is according to 
the convention that the basis elements of the primary space are before those of 
the dual space. The right side of Equation (9) now becomes 

ii 


1 . mi+ni2 [mi+m 2 ] „ in 

(K* ® r ) ® x 1 = ( a 1 

[m x ] [m 2 ] * * 


il j 2** ,j mr Y 1 Y 2* * * Y i 


et ® e a ® e ® 


m 2 


• • • 
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Y m2 mi+m2 i 2 mi+m2 

e ) o Q y e ) 



il 


j l J 2 



a 

b 


I z m 2 


31 

y 


j 2 Jmj 

y ...y 





e ct 


.(ID 


Now the right hand side of Equation (11) is exactly the same as Equation (10), 

establishing the equality in Equation (9), and verifying the steps from a to c 

in Equation (8). Returning now to Equation (8) the step from c to d must be 

verified. This is easy because all that is done is the' grouping together of 

all terms which have the same power of x in them* The sum of all of the co - 

Z 

efficients of each power of x is then called K[ n ]. The first thing that 
should be noticed from Equation (8c) is that the lowest tensor power of x 

which can occur is Z, because each of mi,m 2 ,.«.m£ is greater than or equal to 

Z r 1 

one. Each K[ n ] is thus a sum of coefficients of x LnJ where n>l. Specifical- 
ly. 


= 1 V 8 K n 2 ] 




[i z ] 


where the sum ranges over all combinations of il ,i2 » • • • such that il + i2 + 


. . . + ijj = n. 


Returning now to Equation (6), the second term can be rewritten as 

k-1 p+q p n 

( I k V [k] © x[ k_ 1 J) © ( I A[ p ] [ q ] ® tl K[ n ] © xf n J] ® xlqi). 
k=2 p+q>l n (12) 

The goal is to write this term as a sum of coefficient tensors multiplying 

powers of x. After rearranging the tensors involved, it is desired that it be 

clear what the coefficient for any power of x is. Starting with the second 

set of parentheses, let the components of the tensors be: 


A tp] 


, [q J = I % , , . , , e a ® w ® w 2 ® ... ® w 

qV 1 p ,3 l J 2 ,,,J q 


P ® e 1 ® e 2 ® ...® eh 




K [n] = Zt> P w*. ®w£ ®...0W£ ©e©e'- Q ... Q e“ 

m,m,,...m 1 2 p 

1 2 .n 

x = l y^i • 

To accomplish the goal, use a (p,q) permutation on A [p},[q] to reorder the 

basis elements. Applying this permutation to A [p],[q] gives 

a i. j 

(p.q) A [p],[q] = (p .q)U a , , , . e a ® w © ... e e -<0 


i l 1 2 ± p’ J 1 J 2 — J q 


j v Jo if, i i io 

e a ® e 1 ® e ® ...® e^o w 0 w ® ...© 


It is now asserted that 


[(p,q)A [p ] >{q 3 ® K[ n ]] ® xU+nl - A[ p j t [ q ] ® ([K-tn] ® * lnl l ® * C 


To show this, first compute the left side: 


I, i„. . . i 


/ (p.q) A [p),[q] © Kin] = l a. . . , , , \\ Z J 

j j, j m, m 

e a ® e * © e 2 ® ...® eq® e 1 ® ...® e n 


P p q+n 


i, i_. . . i 


><>A[ p] , tq] ® 4j] ® x [q+n] - I a . b^*I 


Ji h J n ®1 ra 2 m n 
y l y S..y q y l y ...y n e a . 


The right side of Equation (15) is computed as follows: 

p ^ r i n 1 1 m, m„ m 

Kr n t®x‘- n J=ib 12 Py 1 y 2 ...y n Wjj ® wjj, ®...®W£ 

1 J m.m 0 ...m 1 2 p 

1 2 n 


P+q P n r i r i 

A-Tt,! fnl ® ((Kfnl ® xl«J] ® xlqJ) 
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1 1 i i , a p4 

i O[ 0w i s...OwP©e 1 ®...© e J q) a 


p+q 


a 


(b PyV 2 ...y n y r ly r 2... y Y q 

m.m , . .m J J y 

1 2 n 

W S 0 w ^ 2 ® •••* ® W£ 0 ey ® e Y ® ... ® e ) 

2 P 1 r 2 Y q 


= V rt i, !«••*! m. m 0 tn -t 

i l i 2"- 1 p-JlJ 2 ---3 (| 7 y ••• y ” y y 2 -..y J< l «„ . (17) 

It is easily seen that the right hand side of Equation 07) is equal to the 
right hand side of Equation (16), verifying the equality in Eq, ation (15). 
Looking at expression (12), it i 8 se e„ that the term in the second set of par- 
entheses is a vector in the state space. Because V [kJ is syetric with re- 
spect to its k covariant indices, 

1 k—l 

(V !k J C xtk-lj) By. ( V[t J • y) B *[k~l) ( j g) 

Where y is any vector in the state space. Thus, fro™ Equations (15) and (18), 
expression (12) is equivalent to 

k=2 p+q>l ^ V[kI 6 [(P,q> ® K tnjl> k ^ xtk-l+q-hi] . 

Now let m = k - 1 + q + n , then the expression becomes 
m nrKL-k n 

»-2 lc-2 q“0 <k VtkI * ^p=max(l-q,rai„(n, 1)) <P,<,) * *[■>)'> " 

(19) 

where n=m-k+l-q. 


Returning again to Equation (6), the third term is rewritten as 


i+j 


Z , ° J <1 K [n] ® xtn]) o x [jJ . 

i+ 2 >2 n 


Using an (i,j) permutation on Q[i],[j]> this can be further simplified to 

i i j +n 

l l Ki.j) Q[i],[j] 9 K [n] ] ® xlj+nl . 

i+j >2 n 

Now, letting ra = j+n, this becomes 

m m-j i i ra 

l l l t(i.j) Q[i],[j] ® K m-j] ® xtm] • < 2 °) 

m=2 j=0 i=max(2-j , min (m-j , I ) ) 

Equation (5) can now be rewritten using expressions (19) and (20) as 
. k m m+l-k n 

I v [k] ® x [k] +111 l . 

k=2 m=2 k-2 q=0 p=max(l-q,min(n, 1) ) 

p p m 

(k V [k ] ® [ (p , q ) A[ p ]Jq] a K[ n ]l) ® xf®J 

m m-j i i m 

*11. I [Ci,j)Q[i 3 , l j] ® K [in -j]] ® xW - o , 

m j-0 i=max(2-j ,min(m-j , 1 )) 

where n = m- k+ l- q. 


It is now obvious that the coefficient for x[ m I, ra > 2 is: 

. in p,+l-k n p p 

v £m] + l l l (k V[ k ] ® [(p.q) A[ p ] ([q] ® K [n ]]) 

k=2 q=0 p=max(l-q,min(n,l)) 

m m-j i ± 

T X £ K^ij) Q [i J , [ j 3 S ^[m-j } 1 » (21) 

j=0 i=max(2~j ,min(m-j , 1)) 

where n=m-k+l-q. 


For Equation (6) to vanish it is a necessary and sufficient condition that the 

symmetric version of the coefficient tensors for every power of x vanish [1]. 

Thus, the expression (21) vanishes for all ra > 2. This is the first set of 

1 

equations used to find V[ m ] and for m > 2 and £ > 1. The second set of 

equations are derived in a similar manner from Equation (7). 


Shifting attention to Equation (7), it is seen that there are two terras 
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which must be rearranged to determine the factors of the tensor powers of x 
The first term is 


r r ^“1 p+q— 1 i n 

A />, (k ® ^ [k_1] ) ® (P A fpJ,[qJ ® ll K? nJ ® xlnJ] ® xW). 

K i P q 1 n (22) 

Looking at the second set of parentheses, it is seen that the manner in which 

we previously factored out the powers of x will not work here because a (p,q> 

permutation on Afpj^] followed by a contraction (p-1) times will leave one 

basis element from the dual of the control space, making a contraction over 

the state space variable impossible. 


The approach taken involves several steps. First raise one power of V[ k ] 
so that the first set of parentheses becomes 


1 k-1 

v [k-l] ® xO-l] . 


Second, transpose the term in the second set of parentheses. If this 
viewec as ij, where 

„ 1 p i 

B 1 ~ A b j e i ® wJ » 


term is 


then 


R lT - V j « i 
B 1 - 1 c i wj ® e 1 


where 

j i 

c i = bj . 

It can be seen that 


p+q-1 p-i n T 

CA fp],[q3 ® [I K [n j ® x [n]] ® x [q]) „ 
n 


T P+q-A n-1 n 

A [p] , [q ] ® tl K fn ] 8 xtn]] a x [qJ . 

n 
T 

The third step is a permutation on A[ p j [ q ]. If 
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.pMql = l d ji i ,k k ...k Wi] 

2 d 1 2 q 


T 

A [p]Jq] = l ^ A k k y M il ® e 

V * 2“ q 

T 

let the components of (p,q) A [p],[q] where 


i i k k k 

1qw' z ® ... O w p 0 e 1 © e z 0 ... ©eh, 


T k. k. 

(P,q) A [pUq ] = I b w ix ® e 1 ® e 2 ® ... 

Klk 2 ...K 


k j i„ i 

jP©e ® w . . . © w P 


be defined by 

ii _ i i 

b - a • 

^ c 1^2’ , *^ c q’^2***^p ^2‘**^p , ^l^ C 2'*"^ C q 

In the computations this permutation is accomplished using subroutine PERM, 
option (11). Expression (22) is then equivalent to 

T PI p-i q+k-l+n 

l l l k p [ (p, q ) A [p])[q] ® (V [k _u ® K[ n ])] ® xlq+k-l+n] . 

k=2 p+q>l n 

Setting m = q+k-l+n and being more capful with the limits of the summa- 
tions, this becomes 

m+1 m-k+1 n+1 T PI P“1 m 

III l kp[(p,q)A [pUq ] ® (V [k .!] © K [n] )] © xl»J. (23) 

m=l k=2 n=0 p=min(2 E n+l) 

p-1 

where " K [n]" I s omitted when p = 1 and where q =m-k+l-n. 


The second term in Equation (7) which must be rearranged is 

i+ J -1 „ i-1 n , , 

I 1 Q[i],[j] ® ( A K[ n ] ® xLnJ > ® XLjj * 

i+j>2 


(24) 


n 


1 


Let Q[i-l],[j] stand for Q[i],[j] after one of the covariant powers of the 
control variable has been raised. Then, using the permutation (i-l,j), ex- 
pression (24) can be rewritten as 

i i-1 i-i j+n 

l l U (1-1, j) Q[i-1] , [j ] ® K [n]J ® xtj+n] , 

i+i >2 n 


or, setting m = j+n. 
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m m-i+1 1 i-1 i-i m 

II I U Q[i-l],[j] ® K [m-j]] ® * [m] > C 25 ) 

m=l j=0 i=min(2 ,m~j+l ) 
i- 1 i-i 

where ® Is omitted when i = 1. 

From expressions (23) and (25) Equation (7) now becomes 

m+1 m-fc+’i. n+1 X PI p-1 m 

III I k P t(p,q)A[ p ] > [ q ] <s (V tk _il a K[ n ])] o xM 

m=l k=2 n=0 p=min(2,n+l) 

m m-j+1 1 i-1 i_i m 

+ I I l ti(i~l,j) Q[i-l],[j] ® K [m -jj] ® = 0,(26) 

m=l j=0 i=min(2, m-j+1) 
where q = m — k + 1 - n« 


Again, for this equality to hold it is a necessary and sufficient condition 
for the symmetric version of the coefficients of each power of x to be zero. 
Thus, for m > 1, 


m+1 m-k+1 n+1 X PI p-1 

I I I kp[(p,q)A {p ] t { q ] a (V[ k _!j ® K[ n ])] 

k=2 n=0 p=min(2,n+l) 


m m-j+1 

■i I I 

j-0 l=min(2 ,m-j+l ) 


1 i _i i-1 

ti(i-l,j) Q[i-i],[j] ® = 0 , 


where q=m — k+l-n. 


(27) 


There are now two sets of equations which must be solved for Vffc.] and 

1 

K[£J. The solution is recursive in nature and is explained more fully in the 
next section. 

DERIVATION OF CONTROLLER TERMS 

In the previous section, two sets of equations were derived containing 
the controller tensors and the optimal performance tensors. These equations 
are solved for these tensors in terms of known tensors. The results which are 


derived in this section are: 
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• — 4- 


I 


G 

n 


13 

Cl 

n 

j : 

[j 


D 

D 

0 


1) The solution for V[2] is the solution for the Riccati equation obtained by 
truncating the system at linear terms and the performance index integrand 
at quadratic terms. K* is obtained as an affine function of V[ 2 ]. 

2) The equations for V[ m ] for m > 3 are first order linear differential equa- 

1 1 1 

tions which depend upon v [2] » v [3] *• • • » v [m-l] and K 1 ,K[2 J > • • • » K [m~2] ■ 

1 1 

is then obtained as an affine function of Vj m j. ^[m-1] also de- 

1 l 1 

pends upon V[2] t v [3] > • • • > v [m-l ] and K x ,K[2] . ,K[ m _2J . 

First, look at (21) for m = 2 and (27) for m = 1: 

. , 2 2 ! 

v [2] + 2 V [ 2 j ® (Ai,0 ® Kj + Ao,i) + Q [ 2 ] , J ® K [2] + (M) Ql,l ® K x + Qo, [2] " 0 




,1 


1 


2A lf0 ® v; + 2Q 1>0 ® K* + Q 0>1 - 0 . 


Remembering that Aj^q = B, Ao s l - A, Q[2],0 _ R [2]» Qo,[2] “ Q» Ql,0 “ R » anc * 
2 11 

K[2] = ® K^, these become 


V[ 2 ] + 2V[ 2 ] ® (B ® k| + A) + R[ 2 ] ® (K* ® k \) + (l,l)Ql,l ® kJ + Q = 0 

2B t ® vj + 2R ® kJ + qj f i = 0 . 


(28) 

(29) 


1 


In order to solve Equation (28) for V[2}» Equation (29) should be solved for 
and substituted in Equation (28). This is done most easily by writing Equation 
(29) in matrix form and obtaining 


Kj = - R" 1 (BTV + 2Q 0 ,l) . 


(30) 


Substituting into Equation (28), 

• 1 1 1 - 1 

V - VBR -1 B t V - VBR~1 Qo 1 + 2VA Qo,l T R_1 Qo.l + Q = 0 * ( 3 D 

t A * * 


This is the standard Riccati equation. 
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The first order differential equation for is obtained from (21), while 

1 

the equation involving K[ m _i] is obtained from (27). In order to make (21) 
clearer, separate the terms involving and for m > 3. 

* 1 1 
v [m] + ®V[ n ] ® (A 1>0 ® K. + A 0>1 ) + 2V[ 2 ] ® ( A l,0 9 K [m-1]) + 

1 2 i 1 

(l,DQl,l ® K[m-1] + 2Q[2],0 3 CK l ® K [m _ n ) + F [m] = 0 , (32) 

where F[ m ] stands for the remaining terms. 

The first idea here is that the symmetric version of this equation is zero. 

Also, since V[ m ] is symmetric it is desired to make its factor in this equa- 
tion simmetric. This can be accomplished by substituting 


l 1 1 

v [m] ® ( A l,0 9 K ! + A 0,l) ® ( A l,0 © + A 0,l) ® © ( A 1 ,0 ® K i + Af),!) 

' v y 

m times 


m 


= V tm ] © (m ® (Ai t o ® + A 0,l)> 

for mV[ m j © ( A i t o ° + A 0,l)> where "m ®" stands for the m-fold direct 

product. The result of the m-fold contraction will be a symmetric tensor. 

If F[ m ] is a symmetric tensor then V[ m ] will be symmetric and thus V[ ra ] will 

1 

remain symmetric, because the terms involving vanish. The second idea 

1 

here can be seen clearly if the tensors which are contracted with K[ m _j] in 
Equation (32) are collected together: 

(1,1) (2V[2] ® A l,0 + Ql,l + 2 Q f 2 ] , 0 ® K j) ® K U-1] • 
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The term in parentheses here is the same as the left side of Equation (29) with 

the contravariant power lowered and is thus zero. This means that does 

, . 1 
not appear in Equation (32) and V[ m j therefore does not depend upon 


Now look at Equation (27), for m>2. In this equation, the highest order 

1 

controller tensor appearing is K . The highest order optimal control tensor 

[mj 

appearing is Pulling the terms involving these tensors out of the 

summations gives 

l m m-k+1 n+1 X ' PI p-1 

(m+1) BT ® V + l l l kp[(p,q)A o (V ® K H )] 

ImJ k=2 n=0 p=min(2,n+l) LPJ.lqJ [k-lj [n] 

1 1 111+1 1 i~l i-1 

+ 2 Q <2 K + t i Q ® K + 

1,0 [m] [i-l],0 [a] 

m m-i+1 i 


m m-i' 

+ l l 

j-1 i 

where q = m-k+1 -n 


1 1-1 i-1 

i(i-i, j ) Q a K = 0 , 

j=l i=rain(2,m-j+l) [i"!],[j] [m-j ] 


Remembering that ^ is equal to R, this can be rewritten as 

1 m 1 1 
-2 R © K = (m+1) B T ® V + G 

[m] [raj [m]’ 

1 

where G is. the symmetric version of the remaining terras. As in the solu- 

fmjj 

tion for , the fact that R is positive definite is used to obtain 


1 1 1 r a. 1 1 

K = _ -L R -1 © [(m+l)B T O V + G ]. 
[m] 2 L [m] [m] J 

Here R*" 1 can be thought of as the tensor such that 


(33) 


i i I i i 

r-1 e R = R © R-1 « (<S ) f where 6 = 1 if i=j , and 5 = 0 if i # j. 

J j j 

To find R~l, write R in matrix form, invert R, then view this resulting matrix 
as the tensor R -1 . 
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All of the results of this section have now been derived. V [ 2 J was shown 

1 

to be the solution to a Riccati equation and explicit expressions for and 

V[ m ], for £> J. , m>3 have been derived. In the software, the subroutine TNSCLC 
calculates these tensors. TNSCLC uses all of the other subroutines discussed 
earlier which perform the tensor functions in Equations 30 through 33. The 
complicated nature of these equations reflects the complicated nature of 
TNSCLC. The use of the subroutines, however, lets one follow the calculations 
with the equations and simplifies the program greatly. The next chapter has 
examples which were implemented using thin software. The subroutine TNSCLC is 
discussed in more detail in the comments in the software. 


> 


CHAPTER V 


EXAMPLES 

This chapter contains a few example problems. The first problem was 
studied by Lukes [2] and the results here will be compared to results ob- 
tained by Lukes and will thus serve as a verif ication of the software. The 
second problem was previously studied by Hill [3]. This problem is looked at 
closely and the third order feedback terms are shown to have a large effect. 
The final problem is a variation of the second problem in which a.i identified 
model of the system is used instead of the actual system tensors. 


EXAMPLE 1 


The first example is [2]: 

X 1 = x2 , 

2 2 
X 2 = x - x + 


1 2 l-(xi~x2)u * 

co 2 2 

J = / [x + x + sin^ujdt. 
o 1 2 

The goal in this :ase is to calculate the steady state values of 

09 j m ® k 

u = l K © xM; V = l Vr k i ® xW. 

m=l k=2 

In order to see the values of the coefficient tensors more clearly, the system 

and cost functional are expanded into a power series about the origin, giving 

xi = X2, 

2 2 

X 2 = u + x^ “ X 2 + ( x l“ x 2)u^ + (xi“X 2 )^ u^ + . . . , 

r m 2 2 _ „4 2u6 

J - J [x -f x +u^- • — + . . . ]dt. 

o 1 2 3 45 

The expansion for X2 is valid for | (xi~x 2 )u| <1. The values for A, B, 

^(p)»(q)’ ^ or P + g*2, i+j>2, can be read Immediately from this expan- 
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s ion and are shown in Figure 5.L. Since u e R, several of the tensors used 
for the calculations wilL be the same as those displayed. Namely, A f 2 1 , Q = 

A ( 2) ,0* A [3],0 = a (3),0> a [2],1 =a ( 2),1» °[4],0 “ 0(4), 0. and °[6],0 = 

0^6), O’ It w °tth noting that the A = tensor will not be stored as the 

matrix shown but will be stored, as all of the tensors are, in vector form. A 
and all of the tensors of Figure 5.1 which change when transformed to A[ p ],[ q ] 
or Q[i],[j] ate shown in Figure 5.2. 

These tensors are used in the software, and the system is integrated to 
steady state. The resulting optimal performance function terms and feedback 
tensor terms are shown in Figure 5.3. Also shown are the terms which were 
calculated by Lukes. These terms are identical to the terms calculated by the 
program. This partially verifies the software. As a verification of the 
third order terms, Lukes' hand calculations were carried out and the results 
agreed with those calculated by the program. 

EXAMPLE 2 

This example is a two state, two control example. It has been used by 

others for identification purposes [7], [ 8 ], [9], [10], and by Hill for calcu- 

1 1 

fating optimal feedback tensors [3]. Hill calculated V[ 2 ], K , V 3 , and 
for this problem. In his calculations he did not use the symmetric tensor 
algebra or the contraction operator. Also, his software was very problem 
specific. Here the software was developed taking advantage of the flexibility 
which the symmetric tensor algebra and the contraction operator allow. The 
software was written in a very general form, and thus its application to this 
problem is an easy task. 
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0 

l" 


'o' 

= 

o' 

A = 

0 

0. 

, B = 

1 

. A( 2) ,0 

o 


A l.l = 


r 0^ 


,0, 


» Aq,(2) = 


r oi 
0 
0 
1 
0 

-1 


. A (3),0 


0 

0 


» A ( 2) ,1 


0 

0 

1 

-1 


A 1 , (2) “ 0 , Ao >( 3) = 0, A(i) >( p = 0, i+j = 4, 


0 

0 


A (3 ) , (2) “ 


0 

1 

-2 

1 


, otherwise A(i) f (j) - 0, i+i = 5 or 6. 


R = Q(2) ,0 “ 0[ 2] ,0 = UK °1 , 1 = 


0 

0 


> Qo,2 “ 


1 

0 

1 


Q(i),(j) = °> £or i+ 3 = 3 > °(4),0 = J J> 0(6) ,0 ~ 12/45], 
otherwise Q(i),(j) = 0, for i+.i = 4,5,6, or 7. 


Figure 5.1 Symmetric System and Cost Functional Tensors for Example 1. 
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A = 



0 


0 


r — 

0 


0 


0 


0 


o 


1 

1 


0 


0 


0 

0 

’ A 0 , [ 2 ] = 

1 

• A [3] , [2] - 

1 

. Qo,[2J = 

0 

0 


0 


“1 


1 


0 


“1 



-1 


1 _ 



Figure 5.2 Unsymmetrized Tensors for Example 1. 


Program: 


V (2) 



r 




r . 6598 


1.732 

1 

-1.000 


2.000 


2.000 

1.732 


-1.732 

’ V (3) - 

.9897 

-.4762 




.8256 


~ -. 17P r .3-6 

' -1.000 ' 


2,667 

1 

-.919? 

-.9897 

* 

< 

/-\ 

45- 

V/ 

u 

2.383 

, K 

-6.114 

.7143 

-.5426 

(3) 

-5.707 



-1.879 





V3 

i 

-1 

Lukes: V(2) ~ 

2 

, K = 

-V5 

VT . 

1 


v (3) 




10 

21 


K (2) 



Figure 5.3 


'-I | <-n 
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The problem is to minimize 







' 6 * 





’ l' 

(2) f 

' 2 ' 

(2) , 

0 

2 


' 5 " 

(1) J - 

0 

© x(2) + J 

0 

© x^7 + 

0 

0 u 

X + 

0 


.2. 

O 

_ 2_ 


6 



5 


( 2 ) 

© u(^) dt 


2ui 


subject to the system equation 

xi = u 2 Coshxix 2 - e sinh2xj[ - 3sinhx2 
u l u 2 ui 2 


( 2 ) 


X 2 = e sinhxj - e uicoshx^ + sinhx 2 


- x, 


o* 

For this problem, the integration is over a finite time span whereas for the 
last problem there was an infinite t.i ae horizon. So here the feedback tensors 
must be saved after each integration step in order to simulate more closely 
the continuous feedback of time varying tensors contracted with the time 
varying states. Hie tensors calculated for the last example were the steady 
state values. 

The tensors for the problem which are of covariant degree three or less 

are shown in Figure 5.4. The optimal cost tensors v (2)> v (3)> and V( 4 ), and 

111 

the optimal feedback tensors K , K , and K , were calculated and their 

1 (2) (3) 

values were saved every .05 second. Tables 5.1 through 5.6 show the values 


calculated for these tensors. These values are presented in graphical form in 


Appendix C 
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-2 

-3' 


0 

1 

A = 

1 

1 

, B - 

-1 

0 . 


A 0 , [2] = 0, A 1 ( [ 2 ] = 0, 

Ai.i = [-4,0,0,0,0,0,0,01 
A[ 2] ,0 (5) = "I, A[ 23 , 0 (j) = 0 , l<j< 8 , j*5, 

Ao,[ 3 ] = [-4/3,0, 0 , 0 , 0 , 0 , 0 , -.5, 1 / 6 , 0 , 0 , 0 , 0 , 0 , 0 , 1 / 6 ] 

A[3],0(9) = -.5, A [ 3 ] ,oC j ) = 0 , Kj<16, ]* 9 , 

A [ 2 ] , 1 = [-2, 0,0, 0,0, 0,0, 0,0,0, .5,0, .5, 0,0,0] 

Figure 5.4 System Tensors for Example 2 

These tensors were used to calculate the trajectories of the system for 
various initial conditions. The program STAB performs an exhaustive search of 
the phase plane for this problem to determine the "region of usefulness" of 
the feedback tensors. This determination is done in the same spirit as 
Lyapunov stability theory [14], A system is said to be stable if for every 
e > 0 there exists a 5 such that if ||x(t 0 )j| < 6 then ||x(t)|| < e for all t 
> t 0 , A system is said to be asymptotically stable if it is stable and there 
exists a Si such that for any p > 0 there exists a T such that if ||x(t 0 )|| < 
Si then j[x(t)|j < p for all t > t Q + T. Note that both 6 and Si may depend 
on t Q , S may depend on £ and T may depend on P, Sj and t G . Also 5 need not 
equal Si* 

In applying these notions of stability to the finite time case it Is de- 
sired to incorporate both the elements of asymptotic stability. For the sta- 
bility part, e is chosen as the largest value allowed on the digital computer. 
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TIME 

023 ( i ) 

0 . 000E+00 

'l -f 1 onr- i a * 

v i 1/7 ^ZT’w’V 

0 . 5C0E-01 

0 ( 1797E+0C* 

0 i 100E+00 

0. ISOlE-i GO 

0 . 150E+00 

0 * i807EfOC> 

0 i 200E+00 

0.1B13E+00 

0.250E+00 

Ot 1S19E+OQ 

0 > 300E+00 

0* 1S26E+00 

0.350E+0-' 

0 . 1S32E+00 

0 1 400E+00 

0 * 1 339E+00 

0»450E+00 

0 . 1S45E+00 

0 . 500E+00 

0. 1351E+00 

0 . 550E+00 

0 ♦ 1856E+00 

OtoQOE+GO 

0 * 1 860E+00 

0 1 650E+00 

0 * 1S63E+00 

0* 70QE+00 

0 *13653+00 

0 * 750E+0G 

0. 1865E-) 00 

O.SOOE+OO 

0 . 1865E+00 

0 f S50E+00 

0 * 1863E+00 

o,: '-"z+co 

0 1 1 BoOEtOO 

0.950E+00 

0 i 1856E+00 

OtlOOE+Ol 

Otl3SlErOO 

0 , 1 05Ef 01 

0 * 1846E+00 

0.110E+01 

0.1840E+00 

0*115E+01 

0.1835E+00 

Ot 12QE+01 

0 i 1 330E+00 

0.125E+01 

0 . 1S27E+00 

0. 130E+01 

0 * 1S25E+00 

0.135E+01 

0.1825E+00 

0.140E+01 

0.1829E+00 

0.145E+01 

0.1335E+00 

0 , 150E+01 

0 i 1 S48E+00 

0.155E+01 

0.1860E+00 

0 » 160E+01 

0 . 1879E+00 

0.1A3E+01. 

0. 1902E+00 

0 . 170E+01 

Ot 1929E+00 

0 . 1 75E+Q1 

0 * 1961E+00 

OtlSOE+Ol 

G» 1997E+00 

0.1S5E+01 

0 *2036E+00 

0 ♦ 1 90E+01 

0 * 2078E+00 

0<.J.?5E+01 

0 ; 2122E+00 

0.200E401 

0 i 2166E+00 

0 1 205E+01 

0.2210E+00 

0 1 210E+Q1 

Ot 2253E+00 

0 . 2i 5t+0 1 

0 *22+3E+00 

Ot 22QE+01 

0.2328E+00 

0.225E+01 

0.2359E+00 

0.230E+01 

0 * 2383E+00 

0 » 235E+01 

0.2400E+00 

0, 240E+01 

0.2408E+00 

0 ( 245E+01 

0.2408E+00 

0 * 250E+01 

0 , 2400E+00 


023 ( 2 ) 

023(3) 

0 i 3254E+00 

0 . 5178E+00 

0 1 3257E+00 

0 » 5175E+00 

Ot 3262E+Q0 

0 t 5174E+G0 

0 1 3270E+00 

0 . 5174E+00 

0 . 32B0E+00 

0 1 5175E + 00 

0 1 3293E+0G 

0.5179E+00 

0 1 320BE+00 

0 i 5184E+00 

0 . 3326 E+00 

0 , 5192E+00 

0, 3345E+00 

0 . 5203E+00 

0 * 3366E + 00 

0 . 5216E+00 

0 ♦ 3389E+00 

0 . 5231E+00 

0 1 34 1 IE +00 

0 . 5250E+00 

0 * 3434E+00 

0 . 5270E+00 

0 , 3456E+00 

0 . 5293E+00 
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0 . 460E+01 
0 . 465E+Q1 
0 . 470E+01 
0.475E+01 
0 . 480E+01 

0 1 485E+01 
0 . 490E+01 
0 . 495E+01 
0 . 500E+01 


0 . 239QE+00 
-0.UB8E-01 
0 . 24 5SE+00 
-0 . 1517E-G1 
0 . 2521E+00 
-0 • 1912E-01 
0 * 2577E+00 
-0.2353E-01 
0 < 2621E+00 
-0.2815E-01 
0 « 2449E+00 
-0.3266E-01 
0 . 2654E+00 
-0 » 3673E-01 
0 . 2631E+00 
-0 . 4Q07E-01 
0. 2573E+00 
-0.4244E-01 
0 * 2481E+00 
-0.43SSE-01 
0 . 2357E+C-0 
-0 »4442E“01 
0.2212E+00 
-0 * 4460E-01 
0 . 2067E+00 
-0.4510E-01 
0. 1954E+00 
-0.4680E-01 
0 , 1 922E+00 
-0.5051E-01 
0 . 2022E+00 
-0 , 5670E-01 
0 . 2316E+00 
-0.6497E-01 
0 . 2S61E+00 
-0.7353E-01 
0 . 3701E+00 
“0 . 7S65E-01 
0 ♦ 4855E+00 
-0.7426E-01 
0 . 6307E+00 
-0.5175E-01 
0.8000E+00 
0 ♦ OOOOE+OO 


“0 . 2282E-02 
0 . 27 1 1E+00 
0 . 4359E-02 
0 . 269SE+00 
0 . 1 6S3E-Q1 
0 , 2428E+00 
0 , 3637E-01 
0 i 2497E+00 
0 . 6363E-01 
0.2311E+00 
0.9837E-01 
0 * 2076E+00 
0.1393E+00 
0 . 1807E+00 
0.1838E+00 
0 . 1522E+00 
0 . 22S1E+00 
0 . 1 246E+00 
0 • 2669E+00 
0 . 1 005E+00 
0. 2940E+00 
0 . 6239E-01 
0 . 3026E+00 
0 * 724 IE-01 
0 1 28A5E+00 
0.7170E-01 
0 ♦ 2408E+00 
0.799JE-01 
0 . 1636E+00 
0.9484E-01 
0 ♦ 5726E-01 
Ot 1 123E+00 
-0.7083E-01 
0 . 1266E+00 
-0 ♦ 2078E+00 
0.1312E+00 
-0.3363E+00 
0 . 1 206E+00 
-0.43-45E+00 
0.9233E-01 
-0* 4894E+00 
0 . 48S9E-01 
0 . QOQOE+CO 
O.OOOOE+OO 


-0 . 3Z06E+00 
0 . 1732E+00 
-0 , 3532E+00 
0 . 1913E+00 
-0 . 3755E+00 
0 * 2055E+00 
-0.3947E+00 
0.2143F.+00 
-0.4073E+00 
0.2165E+00 
“0.4100E+00 
0 . 21 09E+00 
-0 . 3998E+00 
0. 1968E+0Q 
-0 .3738E+00 
0 i 174 1E+00 
-0 « 3302E+00 
0 » 1 434E+00 
-0 . 2684E+00 
0 * 1061E+00 
-0 * 1894E+00 
0 . 6435E-01 
-0 « 9599E-01 
0 . 2130E-01 
0 . 6892E-02 
“0 » 1943E-01 
0 . 1125E+00 
“0 . 5396E-01 
0.2127E+00 
-0 , 78S1E-01 
0 . 2992E+00 
-0 . 9149E-01 
0 . 3643E+00 
-0* 9117E-01 
0.4028E+00 
-0.7915E-01 
0.4131E+00 
-0.5884E-01 
0.3978E+00 
-0.3531E-01 
0 * 3635E+00 
~0 ♦ 1418E-01 
O.OOOOE+OO 
O.OOOOE+OO 


Table 5.4 


The Quadratic Feedback Tensors Indexed by Time 
for Example 2 


.ORIGINAL PAGO: iB 
0£ POOR QUALITY 


TIHE 

0 t OOOEtOO 
0 , 500E-01 
0. 10OE+OO 
0. 150E+00 
0 . 200E+00 
0 . 250E+00 
0 . 3OOE+0Q 
0 . 350E+00 
0 i 4Q0E+0Q 
0.450E+00 
0 . 500E+0Q 
0 » 550E+00 
0 * &QOE+QO 
0.650E+00 
0 . 700E+00 
0 , 75QE+00 
0 . 300E+00 
0 . 850E+00 
0 . 900E+G0 
0 .950E+00 
O.IOOE+Oi 
0 1 105E+Q1 
O.llOE+Oi 
0.115E+01 
0. 120E+01 
0 , 125E+01 
0,130E+Qi 
0, 135E+01 
0, 140E+01 
0 . 145E+01 
0.150E+01 
0 * 155E+01 
O.iAOE+Oi 
O.USptOl 
0 * l r /OE+Qi 
0 . 175Ef01 
0 . ISOEtOI 
0 . 185E+01 
0 ♦ 190E+01 
0 . 195E+01 
0 . 200E+01 
0 , 205E+01 
0 » 21 QE+01 
0 . 215E+01 
0 . 22QE+01 
0 * 225E+01 
0 * 230E+01 
0.235E+01 
0 « 240E+01 
0.245E+01 
0.250E+01 


04(1) 


-0 . 8297E-02 
-0.3716E-02 
-0.92B3E-02 
-0 . 1002E-01 
-0. 1090E-01 
-0 . 1 193E-01 
-0. 1 310E-01 
-0. 143SE-01 
-0,x575E-01 
-0,i718E-OI 
-0 . 1S63E-01 
-0.2005E-01 
-0.2142E-01 
-0 * 2267E-01 
-0 . 2377E-01 
-0 * 2465E-01 
-Ot 2529E-01 
-0.2564E-01 
-0 . 2566E-01 
-0.2534E-01 
-0.2466E-Q1 
-0 * 2363E-01 
-0 • 2227E-01 
~0 . 2063E-01 
-0.1 875E-01 
-0 . i 673E-01 
-0 . 1466E-Q1 
-0. 126&E-01 
-0 . 10S7E-01 
-0 » 9403E-G2 
-0.3423E-02 
-0.8045E-02 
-0.8387E-02 
-0 . 9540E-02 
-0.1156E-01 
-0.1448E-01 
-0. 1B26E-01 
-0 * 2283E-01 
-0 . 2S09E-01 
~ 0 * ii-3 w / l ~ 0 ! 

-0 . 3996E-01 
-0.4614E-01 
-0.52UE-01 
-0.S773E-01 
-0 « 6260E-01 
-0 . 6650E-01 
-0 . 691 8E-01 
-0.7041E-01 
-0 . 7002E-Q1 
-0 . 67S6E-01 
-0 . 63S6E-01 


4(2) 


0.2551E+00 
0 . 2532E+00 
0 . 2570E+Q0 
0.2574E+00 
0.2574E+00 
0 . 2569E+0G 
0 . 2558E+00 
G .254 1E+00 
0.251BEK)0 
0 . 2489E+00 
0 . 2453E+00 
0 . 24 12E+Q0 
0 . 2366E+Q0 
0 . 2315E+00 
0 . 2262E+0Q 
0.220SE+00 
0.2154E+00 
0 * 2102E+0Q 
0 . 2055E+0Q 
0.2016E+00 
0 . 1 9S6E+00 
0 . 1937E+Q0 
0 . 1 962E+00 
0 . 1 973EfOO 
0 . 2001 E+00 
0.2046E+00 
0 . 2109E+QQ 
0.2188E+00 
0 i 2232E+00 
0.2383E+00 
0 » 2503E+OQ 
0 . 2i22E+00 
0.2741E+00 
G.285AE+00 
0 . 2982E+00 
0.3054E+00 
0.3131E+00 
0 . 31S9E+00 
0 . 322? E+00 
0.3250E+00 
0 . 3256E+00 
0.3248E+00 
0.3233E+00 
0.3214E+00 
0.3199E+00 
0.3192E+00 
0 . 3200E+00 
0.3227E+00 
0.3280E+00 
0 . 3361E+00 
0 . 3475E+00 


04(3) 


0 . 95 1 1E+Q0 
0 . 9534E+00 
0 . 9555E+0Q 
0 . 9573E+00 
0 . P5S4E+00 
0 . 9593E+00 
0 . 9593E+00 
0.958AE+00 
0.9568E+00 
0. 9541E+00 
0 * 9503E+00 
0 . 9454E+00 
0 . 9394E+00 
0 . 9323E+00 
0.9243E+00 
0 * 9156E+00 
0 1 9062E+00 
0 . 8985E+Q0 
0,S348E+00 
0.8774E+00 
0 . B687E+00 
0 « 8A12E+00 
0.85S2E+00 
0 . 851 2E+00 
0 . 84 9 6E+G0 
0.8507E+00 
0.8547E+00 
0*8619E+00 
0 ♦ 8721E+Q0 
0 . 8853E+00 
0 . 9010E+00 
0.91B9E+00 
0 . 9382E+00 
0.9584E+00 
0.9785E+00 
0.9979E+00 
0 ♦ 1Q16E+01 
0 . 1032E+01 
0. 1046E+01 
0 * 1 053E+0 i 
0.1069E+01 
0. 107SE+01 
0 • i 0S7E4 01 
0 , 1 097EIG1 
0 . 1 1 10E40 1 
0.112AE+01 
0.1149E+01 
0 , 1177E+01 
0 . 1214E+01 
0.1259E+01 
0 , 1313E+0 1 


V 4 ( 4 ) 


0. 1005E+01 
0. 1009E+01 
0, 1013E+01 
0 . 101 6E+01 
0. 1019E+01 
0 . 1 022E+01 
0 . 1024E+01 
0. 1025E+01 
0.1024E+01 
0 . 1023E + 01 
0 . 1020E+01 
0.1015E+01 
0 . 1009Et01 
0.-1001E+01 
0.9920E+00 
0.9310EI00 
0.9687E+00 
0 . 9552E+00 
0 , 9409E4-00 
0.9263E+00 
0.9118E+00 
0.89S0E+00 
0 * 8855Et 00 
0 * 3750E^00 
0.8670E+00 
0.8A24E+00 
0.3616E+00 
0.8A52E400 
0 * 8735E+00 
0 * S867E + 00 
0 . 9048E+00 
0 . 9274E+00 
0 . 9542E+00 
0.9B42E+00 
0.1017E401 
0 » 1050E+01 
0 . 1083E4-01 
0 . 1 ilAE+01 
0 . 1 145E+01 
0.1171E+01 
0, 1194E+01 
0. 1212 Et01 
0 . 1 228E+01 
0.1237E+01 
0 . 12 47E+01 
0.125AE+0I 
0.12A9E+01 
0-1285E+01 
0.1310E+01 
0 . 1344E+01 
0 , 1390E+0I 


0-4(5) 


0. 1051E+01 
0 . 1053E4-01 
0.1055E+01 
0 . lOSSEf 01 
0. 1060E10i 
0. 1033E + G1 
0 . 10A6E+01 
0.1068E401 
0 . 1070 Et 01 
0 . 1072EI01 
0 . 1 074E+01 
0 . 1074E401 
0 . 1074E+01 
0 . 1073E901 
0 . 1071Ef0i 
0 . 1068E+01 
0. 1063E4-01 
0 . 1058E+01 
O.iOSlEiOl 
0.1044E+01 
0 i 1035E+01 
0 . 1023Ef01 
0.1016E+01 
0 . 1 006E+01 
0.9945E+00 
0.9875E+00 
0 . 9794E+00 
0. 9729 E +00 
0 .9683E + 00 
0 * 966 1 E+00 
0 . 9666E+00 
0 .9703E+00 
0 . 977 1 E+00 
0.9874E+00 
0.1001E+01 
0 . 1 017E+01 
0 « 1037E+01 
0 . 1058E+01 
0 . 10SIE+01 
0 * 1106E+01 
0 . 1 130E+01 
0 . i i 55E+01 
0 . 1 179E+01 
0 . 1202E+01 
0 . 1225E+01 
0 . 1247E+01 
0.1269E+01 
0.1292F+01 
0.1318E+01 
0.1347E401 
0.1382E+01 
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0.255E+01 

-0 . 5800E-01 

0 . 260E+01 

-0 . 5035E-0I 

0 i 265E+G1 

-0 . 4 103E-01 

0, 270E+01 

-0 i 3030E-01 

0 . 275E+Q1 

-0 . 1S47E-01 

0 . 280E+G1 

-0.5955E-02 

0 . 2S5E+01 

0.6752E-02 

0 . 290E+01 

0 . 1911 E— 01 

0 . 295E+01 

0.3053E-01 

0 i 3Q0E+01 

0 * 4045E-01 

0 1 305E+01 

0 , 4836E-01 

0.310E+01 

0 . 53B0E-01 

0 . 315E+01 

0 i 564SE-Q1 

0 • 320E+01 

0.5621E-01 

0 . 325E+01 

0.5293E-01 

0 < 330E+01 

0.4690E-01 

0 . 335Ef0i 

0 . 3824E-Q1 

0 . 340E+01 

0.2732E-01 

0.345E+01 

0 . 1452E-01 

0 i 350E+G1 

0 * 2349E-03 

0 . 355E+01 

-0.151SE-G1 

0 . 360E+01 

-0.3140E-01 

0 , 365E+01 

-0 f 4S13E-01 

0 1 379E+01 

-0.6511 E- 01 

0.375E+01 

“0 . S209E-01 

0 . 38QE+01 

-0. 9876E-01 

0 * 385E+01 

-0 . 1 143E+00 

0 . 390E+01 

-0.1296E+00 

0 , 395Ef01 

-0 . 1427E+00 

0.400E+01 

■ -0 . 1534E+90 

0 . 405E+01 

, -0.1610E4C0 

0.410E+01 

-0 i 1643E+0Q 

0.415E+01 

-0.1645E+00 

0 . 420E+01 

-0.1599E+00 

0.425E+01 

-0.1512E+00 

0, 430E+01 

-0. 1392E+00 

0 i 435E+Q1 

-0.1250E+00 

0.440E+01 

-0 » 1101E-J 00 

0 . 445E+01 

-0 * 9572E-01 

0 i 43GE+01 

-0 « 8238E-01 

0 * 455E+01 

“0 . 7216E-01 

0. 460E+01 

-0. 6404E-G1 

0 . 465E+01 

~0 , 5971E-01 

0 i 470E+Q1 

-0 . 6179E-01 

0.47SE+01 

-0.7431E-01 

0 t 480E+01 

-O.IOOOEtOO 

0 > 485E+01 

-0.1333E+00 

0.490E+01 

-0 . 1 476E+00 

0.495E+01 

-0 . 7746E-01 

0.500E+01 

0. QOOOE+OO 


0 . 3623E+00 

0. 137AE+01 

0.3805E+00 

0, 1446E+01 

0 . 4022E+C0 

0, 1523E+01 

0 . 4272E+ 00 

0. 1A05E+01 

0. 4551E+00 

0 . 1 690E4 01 

0 i4853EtOO 

0.1776E+01 

0 , 51 73E+00 

0 . ISoOEt 0 i 

0 i 5o0i E tOO 

0.1939E+01 

0 . 5S29E+90 

0.2011E+01 

0 . 61 47E+00 

0.2074E+01 

0 . 6446E+00 

0 , 23 27E + Q1 

0 , 6719E+00 

0.2169EE01 

0 ♦ 4961E+00 

0.2201E+01 

0 . 71 88E+0G 

0.2224E+01 

0 . 7343E+00 

0.2243E+01 

0 . 7487E+00 

0 . 2260E+01 

0 * 7605E+00 

0.2281E+01 

0.7700E+00 

0.2309E+01 

0.7773E+00 

0.2349E+01 

0.7820E+00 

0.2403E+01 

0 i 7332E+00 

0.2471E401 

0 . 7794E+00 

0 . 2550E+01 

0 , 7685E+0O 

0 . 2634 ErOi 

0 . 7481E+00 

0.2715E+01 

0 » 7155Ef00 

0. 2782E+01 

0 . 6636E+00 

0,232 3 £+01 

0 . 6056E+GG 

0.2S20E+G1 

0 . 5263E+00 

0 » 2766E+0 1 

0.4317E+G0 

0 , 2647E+01 

0.3250E+00 

0 • 2459E+01 

0 . 21 14E+00 

0.2202E+01 

0.9773E-O1 

0.1883E+01 

-0 . 7737E-02 

0.1521E401 

~0 < 9663E-01 

0. 1142E401 

-0.1619E+00 

0 ♦ 7812E4 00 

-0.19P4E+00 

0 , 4744E400 

“0 ► 2096E+CG 

0 , 2553E400 

“0.1979E+00 

0.1451E400 

-0 . 1739E+00 

0 • 1445EE00 

“0 • 1 466E+00 

0.22B4E400 

-0 . 1296E+00 

0 , 3473EI 00 

-0 . 1168E+0Q 

0.4334E+00 

-0.9937E-01 

0,4453ErC'0 

~0 * 5994E-01 

0.3432E+00 

0 < 1498E-01 

0.1553E+00 

0.1188E+00 

-0, 4319E-01 

0.2114E400 

-0, 1789E400 

0 , 2243E+00 

-0 , 1784E+00 

0 * 9342E-G1 

-0.610SE-01 

0.0000E+00 

0 » OOOOE+OO 


0.1449E401 

0. 1423E+0 l 

9. 1523E+01 

0. 14 T4E401 

0. 161 iE+03 

0, 1534E+0! 

0*171 2E +01 

0. 1 6 0 f £ t 0 1 

0. J825E+01 

O.l.SKf? fOj 

0. 1946E+01 

0 . 17S3E-) 01 

o * 2070E+01 

0 . 1 S86E K'l 

0 . 2193E+01 

0 . 1??9Et01 

0 * 230SE f 0 1 

0 . 21 16E+0! 

0 , 2412E+01 

0 . 2236E+01 

0.2497E401 

0.2353E+01 

0 . 2560E+01 

0 . 2 464E+01 

0 . 259SE+01 

0 . 2563E+01 

0 , 2612E+01 

0.2643E+01 

0 .36013+01 

0.2715E+01 

0 . 2572E+01 

O , 2762E+01 

0.-2S31E401 

0.2791E+01 

0.2488E+01 

0 . 2302tr01 

0.2451E+01 

0 . 2 799 Ef 01 

0.2431E+01 

0 . 2789E+01 

0 , 2437E101 

0 , 2776E+01 

0.2474E+01 

0 . 2769E40 1 

0 , 2546E4 01 

0 * 2774Er03 

0.2649E+01 

0.2797E+01 

0.2778E+01 

0.2843E+01 

0.2919E+01 

0, 291 4Et01 

0.3054E+01 

0 . 3010E+0 J 

0.31 63E+01 

0.3127E+01 

O.322OE401 

0 . 3258E+01 

0 ♦ 3199E401 

0.3392E+01 

0.3075E401 

0 . 35l6Er01 

0 . 2829E+01 

0 . 361GE+C1 

0 . 2450E+01 

0 • 3656E +03 

0. 1940E+01 

0 i 3632E+0 1 

0.1319E+01 

0 * 3523 E +01 

0.6276E+G0 

0.3310E+01 

-0, 7521E-01 

0* 2995E+01 

-0 .7160E+00 

0.25B6E+01 

-0.1218E+01 

0.2104E401 

-0.1517C+01 

0 . 1 5 9 6 1 t 0 1 

-0.1579E+01 

0.30?3E+r > 

-0 . 14 14Et01 

0.6540E+00 

-0.1081E401 

0.3134E+OO 

-0. 6730E900 

0.8989E-01 

-0.3115E+00 

-0 . 2321 E-Oil 

-0.6209E-01 

-0 , 5342E-01 

0.4461E-01 

-0.3925E-01 

0,4411E-0i 

-0.1554E-01 

0 » 8386E-02 

-0 , i 852E-02 

0 . 0000E+O0 

0. OOOOE+OO 


Optimal Cost Functional 


Table 5.5 The Fourth Order Tensors of the 
Indexed by Time for Example 2 


ORIGINAL PAGE IS 
QE POOR QUALITY 


TIME 

0 i OGOE tOO 
0 . 500E-01 
0 , lOOE+OG 
0 , 1 SOEtOO 
0 . 200Et 0*D 
0 t 2 dOEtOO 
0 (300E+00 
0 * 350E+00 
0 . 400E1-00 
0 i 4S0 Et 00 
0 • SOOEfOO 
0 (550E+00 
0 , •= GGE-S- 00 
0 .dSGE'fOO 
0 * 700E400 
0 .750E+00 
0 * SOGEtOO 
G«850E-f00 
0.900E+00 
0 * 950E+00 
0 * ICOEiOi 
0. 105E+01 
0 . llOEfOl 
0 . i ISE tOI 
0 * 120Et01 


K3 ( 1 ) 
K3<5) 


0 . 2G83E-01 
0 . 2178E-Q1 
0.2074E-01 
0.2I97E-01 
0 * 2053E-01 
0 , 2222E-01 
0 i 2Q20E-Q1 
0 i 2256E-0 i 
0. 1975E-01 
0 * 2297E-01 
0. 1917E-01 
0 . 2345E-01 
0 . 1 846E-01 
0 , 2399E-0 1 
0 , 1764E-01 
0 * 246QE-01 
CM671E-01 
0 . 2525E-01 
0.1569E-Q1 
0.2594E-01 
0 . 1461 E-01 
0.2863E-01 
0.1349E-01 
G i 2733E-01 
0 * 1237E-01 
0 * 2799E-01 
0.1127E-01 
0 *2S61E-01 
0 » 1023E-01 
0 . 2 9 i 5E— 0 1 
0 * 9299E-02 
0 « 2960E-01 
0 « B509E-02 
0 . 2994E-01 
0. 7900E-02 
0 ,3013E-01 
0 . 750BE-02 
0 * 3018E-01 
0»7365E-02 
0.3006E-01 
0 . 7497E-02 
0.2977E-01 
0 1 7921E-02 
0*293 IE -01 
Q» S642E-02 
0 . 2863E-Q1 
0 . 9A55E-02 
0 . 2792E-01 
0 . 1094E-01 
0.2704E-01 


K3<2; 

K3C6J 


-0* 

2942E- 

01 

-0. 

2114E- 

01 

-0. 

2950E- 

01 

-0. 

2149E- 

01 

-0. 

2984E- 

01 

-0* 

2175E- 

■01 

-0. 

3048E- 

01 

-0. 

2190E- 

■01 

-0, 

3143E- 

•01 

-0, 

2 i 90 E - 

■01 

-0. 

3271E- 

•01 

-0, 

-2173E- 

■01 

-0 . 

3434E- 

•01 
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This was chosen by taking into account the nature of the problem at hand, 
especially the finite escape time for ||x|| > 10, So the norm of the state 
must remain in the region with no finite escape time. (Finite escape time im- 
plies that the norm of the state becomes infinite almost instaneously. ) For 
the asymptotic part of the stability, it was desired that the norm of the 
state be approaching zero. Since it is a finite time problem, T can not be 
chosen arbitrarily large and p can not be chosen arbitrarily small. It is 
logical to choose T as large as possible (5 sec); P is chosen equal to the in- 
terval between tested points in the region, 0.1 (the smallest change in the 
norm that mattered). So a point is in the region of usefulness if the norm of 
the state remains bounded and the final norm is less than 0.1. 

There were three regions of usefulness calculated. The first used only 

linear feedback tensors, the second used linear and quadratic tensors, and the 

11 1 

third used' X , X , and K . The three regions are shown in Figures 5.5, 
l (2) (3) 

5.6 and 5.7, respectively. The regions get larger as new terms are added and 
the feedback more closely approximates the optimal feedback. The plots bear 
out the fact that the second order terms help drive the states to the origin 
faster than the linear terms alone and that the third order terms help even 
more. Some plots are included in Appendix B. 

When nonlinear feedback is used in practice, these regions of usefulness 
could be very meaningful. In general these regions show the deviation from an 
equilibrium point from which the system can recover using nonlinear feedback. 
Obviously, the larger these regions are, the larger the initial conditions 
which can be tolerated are* So the demonstration that the regions grow as 
more feedback terms are used is an important result for the application of 
nonlinear feedback control. 
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Figure 5.5 The Linear Feedback Region of Usefulness for Example 2. 

This Region was calculated by the program STAB. Every 

initial condition in the region -A < x(l) < 3 and -3 < J 

x(2) < 3 at 0,1 intervals was input to the subroutine 

XCALG and integrated for 5 seconds. The asterisks rep- . 

resent the acceptable initial conditions. The has 

marks are at 1.0 s pacings. u 
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EXAMPLE 3 

The final example is motivated by the potential applications of nonlinear 
feedback. When nonlinear feedback is used in practice, the designer will have 
access to only a model of the actual system. The actual system will not be 
known explicitly. Thus the system tensors used to calculate the feedback 
tensors will be only approximations of the actual system tensors obtained by 
some identification scheme. This example looks at how the feedback tensors 
calculated from this sort of model perform in comparison to the tensors cal- 
culated assuming the actual system is known explicitly, in one case. 

The system chosen is the one in the last example. The model used was ob- 
tained by Yurkovich [8] and Bugajski [9] using an identification technique 
devised by Yurkovich. The model was obtained in symmetric tensor form and is 
shown in Figure 5.8. The same cost functional as for the last example, Equa- 

tion (1), is used so that the results may be compared directly. Again the 

1 1 1 

tensors V( 2 ), V( 3 ), V( 4 ), K K , and K were calculated over the 5 

•1 \ ^ / \ ) 

seconds time span and were saved every .05 seconds. Their values are shown 
in Tables 5.7 through 5.12, respectively. These values are in fact close to 
the values calculated on the actual system. 

The program STAB was run for these new values of the feedback tensors. 

The possible application was the motivation for the manner in which this pro- 
gram was executed also. In practice it is anticipated that the designer will 
first obtain a model of the system which approximates system behavior in the 
region of interest. Next, the feedback tensors for this model will be calcu- 
lated to minimize some cost functional. Then these feedback tensors will be 
used on the actual system to calculate the input to that system. The impor- 
tant point here is that the feedback will not be applied to the model of the 



10 J 


system bat to the actual system Itself. Models of systems are developed for 
analysis purposes while the goal of calculating the tensors is for controlling 
real systems. So here STAB uses the feedback tensors calculated using the 
model in Figure 5.8 to control the actual system in Equation (2). 

The linear, quadratic, and third order regions of usefulness are shown in 
Figures 5.9, 5.10, and 5.11, respectively. These regions are very similar to 
those in Figures 5.5, 5.6, and 5.7. For this example, there is no significant 
difference between using an identified model of the system and the actual sys- 


tem. 


102 


A - 

[-1.9977 

-3.0008 B - 

.0019891 

.99779 


.99967 

1.0002J 

-1.0001 

-6. 2231E-7 




'-4.0692 



-.19024 


.027909 


-.0039675 

-.012365 


.026129 


.0071601 

-.0034771 

A 1 , 1 “ 

-.0078805 

A (2) ,0 = 

-.012386 

.036033 

9 

.021083 

-.99787 

.0022184 


.0026825 


.0010537 

1. 5017E-4 


.002591 


7.4681E-4 



.0035398 




A 0,(3) 


.70548 ' 


' -.18738 ‘ 

1.6627 


-.032069 

3.3163 


-.0251 

.78087 

A (3) ,0 * 

-.019747 

-.2223 

-.51749 

-.6684 


-.016328 

-1.2624 


-.019048 

-.3395 . 


-.0011802 


A l,(2) 


.62148 


' -3.5488 ' 

-.25223 


.16518 

.44724 


-.10235 

-.61366 


.036896 

-.76455 


.41411 

-.67544 

A (2) , 1 * 

.075615 

-.28909 

-.17155 

-.05473 


-.055923 

-.048646 


.36002 

-.025264 


-.035393 

-.058202 


-.044252 

-.0056896 


-.013022 


Figure 5.8 Identified Tensors for the System in Equation (2). 
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Table 5.7 Quadratic Terms of the Optimal Cost Functional 
Indexed by Time for Example 3 
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-0.7209E+00 
-0.7291Ef00 
-0.7368E+00 
-0.7434£f00 
-0. 7492Ef00 
-0 . 7535E+00 
-0.7563E+00 
-0.7573EfO0 
-0,7566Ef00 
-0.7540E+0G 
-0.7497E+00 
-0.7437E+00 
-0»7364EfQ0 
-0.7279Ef00 
~0.7189Ef00 
-0.7098Ef00 
-0.7012Ef00 
-Of 6939E+0.0 
-0.6885E+00 
-0.£359EfOG 
-0.6869E+00 
-G.6924Ef00 
-O.7O31EfO0 
-0.7198Ef00 
-0.7431Ef00 
-0.7736E+00 
-0.8116E+00 
-0 . S573Ef 00 
-0.9107£f00 
-0.9713E+00 
-0.1039E+01 
-0.1112Ef01 
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0.260E+01 

-0.9943E-01 

-0.3002E+00 

-0.4267E+00 

-0.1189E+01 

0. Z35E+Q1 

-0.1004E+00 

-0.3072E+00 

-0.4481E+00 

-0. 1270E+01 

0.270E+01 

-0.9934E-01 

-0.31 19E+00 

-0.4659E+00 

-0.1351E+01 

0.275E+01 

-0 i 9619E-01 

-0.3139E+00 

-0.4790E+00 

-0.1430E+01 

Q.230E+01 

-0.9094E-01 

-0.3133E+00 

-0. 486SE+00 

-0. 1506E+01 

0.2S5E+01 

-0.8370E-01 

-0.3098E+00 

-0.4833E+00 

-0.157AE+01 

0.290E+01 

-0.7466E-01 

-0.3037E+00 

-0.4S30E+00 

-0 . lASsE+01 

0.295E+01 

-0.6412E-01 

-0.2952E+00 

-0.4708E+00 

-0.1igSE+01 

0.300E+01 

-Q.5250E-01 

-0.2847E+00 

-0.4S1SE+00 

-0.1719E+01 

0.305E+01 

-0.4024E-01 

-0.2729E+00 

-0.4256E+00 

-0.1737E+01 

0.310E+01 

-0.2790E-01 

-0.2&0AE+00 

-0.3939E+00 

-0. 1738E+01 

0.315E+01 

-0.1402E-01 

-0.2486E+0Q 

-0.3577E+00 

-0.1720E+01 

0.320E+C1 

-0.5133E-02 

-0.2379E+00 

-G.3187E+00 

-0.1&85E+01 

0.325E+01 

0.4264E-02 

-0.2297E+00 

-0.2788E+00 

-0.1633E+01 

0.330E+01 

0.1178E-01 

-0.2247E+00 

-0.2404E+00 

-0.1566E+01 

0.335E+01 

0.I715E-01 

~0 . 2238E+00 

-0.2058E+00 

-0. 1488E+01 

0.340E+01 

0.2026E-01 

-0.2276E+00 

-0.1776E+00 

-0.1403E+01 

0.345E+01 

0.2118E-01 

-0.2366E+00 

-0.1579E+00 

-0.1316E+01 

0.350E+01 

C.2014E-01 

-0.2506E+00 

-0.1489E+00 

-0.1232E+01 

0.355E+01 

0.1756E-01 

-0.2694E+00 

-0.1520E+00 

-0. 1157E+01 

0.360E+01 

0.1397E-01 

-0.2922E+00 

-0.1682E+00 

-0.1097E+01 

0.365E+01 

0. 1003E-01 

• -0.3179E+00 

-0.1976E+00 

-0.1057E+C1 

Q.37QE+01 

0.6465E-02 

-0.3453E+00 

-0.2397E+00 

-0. 1040E+01 

0.375E+01 

0.39S7E-02 

-0.3725Et0(j 

-0.2929E+C0 

-Q. 1053E+01 

0.390E+01 

0.3271E-02 

-0.3979E+00 

-0.3551E+00 

-0. 1095E+01 

0.385E+01 

0.4383E-02 

-0.4194E+Q0 

-0.4231E+00 

-0.1169E+01 

0.39QE+01 

0.9231E-02 

-0. 4353E+00 

-0.4931E+0Q 

-0.1273E+01 

0.395E+01 

0.1651E-01 

-0.4439E+00 

-0.5609E+00 

-0.1406E+01 

0.400E+01 

0.2668E-01 

-0.4437E+00 

-0.6214E+00 

-0. 1561E+01 

0.405E+01 

0.3940E-01 

-0.4339E+00 

-0.6699E+00 

-0.1734E+01 

0.410E+01 

Q.5408E-01 

-0.4141E+00 

-0.7012E+00 

-0. 1916E+01 

0.415E+01 

0.69S5E-Q1 

-0.3S47E+00 

-0.7108E+00 

“0. 2096E+01 

0.420E+01 

0.8568E-01 

-0.3470E+00 

-0.6930E+00 

-0.2262E+01 

0.425E+01 

0. 1004E+00 

-0.3031E+Q0 

-O.A514E+00 

-0.2402E+01 

0.430E+01 

0. 1129E+00 

-0.2S62E+00 

-0 .57948+00 

-0.2502E+01 

0.435E+01 

0. 1225E+00 

-0.2101E+00 

-0. 4S05F+0C 

-0.2550E+01 

0.440E+01 

0. 12B7E+00 

-0.1691E+00 

-0.3592E+00 

-0.2535E+01 

0.445E+01 

• 0.1320E+00 

-0. 1376E+00 

-0.2227E+00 

-0.2451E+01 

0.450E+01 

0.1337E+00 

-0. 1191E+00 

-0.8092E-01 

-0.2294E+01 

Q.455E+01 

0.1359E+00 

-0. 1159E+00 

O.S402E-G1 

-0.2070E+01 

0.460E+01 

0.1414E+00 

-0.1276E+00 

0.1694E+00 

-0. 1789E+01 

0.465E+01 

0. 1531E+00 

-0.1508E+00 

0.2534E+00 

-0.1471E+01 

0.470E+01 

0.1724E+00 

-0.1789E+00 

0.2977E+00 

-0.1140E+01 

0.475E+01 

0.1985E+00 

-0.2Q25E+00 

0.2991E+00 

-0.8204E+00 

0.480E+01 

0.2258E+00 

-0.21UE+00 

0.2615E+00 

-0.5385E+00 

0.485E+01 

0.2427E+0Q 

-0. 1955E+00 

0.1957E+00 

-0.3123E+00 

0.490E+01 

0.2302E+00 

-0.1509E400 

0.1133E+00 

-0. 1507E+00 

0.495E+01 

O.UtOE+00 

-0.8G79E-01 

0.4785E-01 

-0.5104E-01 

0.500E+01 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 

O.OOOOE+OO 
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TIME 

94(1) 

0 * OOOE-fOO 

0.5S47E-01 

0 . 5OOE-01 

0. 5S45E-01 

0 . 100E-J-00 

0« 5S33E-01 

0 . 150E+00 

0.5808E-C1 

0.200E+00 

0.5770E-01 

0 . 250Ef0Q 

0 . 5719E-01 

0 « SOOErOO 

O.5654E-01 

0 . 350E+00 

0 * 5576E-01 

0 * 40OE+0Q 

0.5486E-01 

0 . 450E+Q0 

0 . S337E-01 

G.50GE+OG 

0.5280E-01 

O,550Ef00 

0.3167E-01 

O.oOOEtOO 

0.5053E-01 

0 » 650Et00 

0.4941E-01 

0 , 7002+00 

0 < 4B35E-01 

0.750E+OG 

0.4739E-01 

0 . SOQE+GO 

0 . 4659E-01 

0 . 859E+09 

0 . 4598E-01 

0.900E400 

0.4560E-01 

0 * 95QE40G 

0.4550E-01 

0 » 1 OOE+Ol 

0.4571E-01 

0 . 105E+Q1 

0.4626E-01 

0.110E+01 

0.4714E-01 

0.115E+Q1 

0 . 4S37E-01 

0* 120E+01 f 

0 * 4992E-01 

0.125E+01 ■ 

0.5176E-01 

0.130E401 : 

0.5383E-01 

0 . 135E+01 * 

0.5606E-01 

0 * 140E401 a 

0.5337E-01 

0 . 145E+G1 

0 . 6064E-01 

0 . 150E+01 

0 . 6276E-01 

0 » 155E+01 

0 * 6462E-01 

0.1A0E+01 

0 * 6610E-01 

0 . i65E+01 

0.6-709E-01 

0.170E+01 

0 . 6750E-01 

0 . 175E401 

0 » 6726E-01 

0.180E+01 

0.6634E-01 

0 . 135E+01 

0.6473E-01 

0,190E40l 

0. 6249E-01 

0 . 195EE01 

0.596SE-01 

0.2GGE+01 

0 » 5642E-01 

0.205E-f01 

0 . 5286E-01 

0.210E+01 

0.4917E-01 

0 * 215E+01 

0.4555E-01 

0.220E+01 

G.4221E-01 

0 . 225E+01 

0.3934E-01 

Q.230E+01 

0 . 3714E-01 

0 . 235E+01 

G.3530E-01 

0.240E+01 

0.3547E-01 

0 ♦ 245E+01 

0.3629E-01 

0 i 250E+01 

0 * 3836E-01 


94(2) 

94 (3) • 

0»o7w5Etv’0 

0»2l74E-r0i 

G.395SEFO0 

0 * il77EfC'l 

0.3977E+00 

0 . 1 ieiE +01 

0 1 3995E+00 

0 . 1 1B5E+01 

0 * 4010E400 

o.iisse+oi 

0 . 4021E+00 

0.1192E+01 

0 > 402BE+00 

0. 119SE401 

0.4030E+00 

0 . 1 l?8£40i 

0.4G27E+00 

G * 120GE+G1 

0 . 4017E+00 

0* 1201E+G1 

3.4000E+00 

0 • 1201E+01 

0 * 3978E+00 

0. 1199E+01 

0.3?46Et00 

0.1197E401 

0.3909E+00 

0 . 1 193Et01 

0.3867E+00 

0.1188E401 

0.3S21E+00 

0.1182E+01 

0.3771E+00 

G * 1 175E401 

0i.3720E+00 

0.1167E+01 

0.3669E+00 

0.1158E+01 

0.3621E+00 

0.1149E+01 

0.357EE+00 

0 1 1 14GEr01 

0.3543E+00 

0.1131E+01 

0.3519E+00 

G « 1123E+Q1 

0.3507E400 

0.1116E+01 

0 . 3511 E-f OG 

G.illlE+01 

0.3533E+00 

O.UOBE+Ol 

0 » 3573E+00 

0 • ilOSEtOl 

0.3634E+Q0 

0 . llllE+Ol 

0 .3714E+00 

0. 1 118EtC’l 

0 . 331 4E+00 

0.112SE+01 

0.3931E+GQ 

0.1142E+01 

0.4064E+00 

0.1160E401 

0.4208E+00 

0.118lE-r01 

0*43ilE-f-00 

0 ♦ 1205E+01 

0.4317E+00 

0.1231E+01 

0.467.1E+OQ 

0. 1259E+G1 

0.4821E+00 

0*1289Et01 

G.4941E+O0 

0 < 1318E+01 

0.50B9E+00 

0. 1346E+01 

0.52G2E-K30 

0 . 1378E+01 

0 . 5300E+00 

0 » 1404E401 

0.5383E+00 

0.1430E+01 

0.5454E+00 

G» 1456E401 

0 . 5513E+00 

0 . 1432E+01 

0.5566E400 

0.1S08E+0t 

0.56UE+0G 

0.1536E+01 

0 . 5666E+00 

0« 1566E+01 

0.5722E+00 

0 ♦ 16Q1E+01 

0-.3785E+00 

0.1640E+01 

0.5859E400 

0. 1685E+01 

0.5945E+00 

0.1735E+01 


94(4) 

94(5) 

0. 1 127£tC'1 
0.119IE+01 

0.121oEf0i 
0 . 121 SEiOi 

0.U95E+G1 
0 * 1200E+G1 

0. 1220E4G1 
0 , 1222E+01 

0 f 1204E+G1 

0 . 12 : -. 01 

0* 1209E-f0i 

0 * 1228Et01 

0 . 1214E+01 

0.1231E+01 

0.1213E+01 

G.1234E701 

0 . 1222E+01 

0.123BE+01 

0. 1225E+01 

G.1241E+01 

0.1227E+01 

0,1245Et01 

0.1227E4G1 

0. 124SE+01 

0. 1226E401 

0 ! 1250E+01 

0/1223E+01 

G 1 1252E+01 

0 . 1219E+01 

0.1253E401 

0. 1213E+01 

0 • i254E401 

0.1205E+01 

0 ♦ 1253E4G1 

G 1 1 195E+01 

0.1251E+01 

0 * 1184E+G1 

G.1249E+01 

0.1172E401 

0 * 1245E+01 

0»1159Et01 

0 . 1240Ef0i 

0* 1145Ef01 

0 « 1234E401 

0.1132E+01 

0.i227Ef01 

0 • 1120E401 

G.1219E+01 

0 • 1109E+01 

G« 1211E+01 

O.llOOE+Ol 

0 • 12G3Ef01 

0 . J.G94E+01 

0 . H96E401 

0 * 1092E401 

0 . 1189E+01 

0 * 1093E+01 

G* 1183E+01 

0 • 1100E401 

0 . 1 179E401 

O.miE+Ol 

0 * 1177E+01 

0 . 1 128E+01 

0. 1177E+G1 

0 . 1149E+G1 

O.llBGE+Oi 

G.1176E+01 

0.1187E+01 

0. 1208E+01 

0. 1197E+01 

G.1243E+01 

0.1210E401 

0.1282E+01 

0.1227E+G1 

0.4-322E+G1 

0. 1247Er01 

G.1384E401 

0 . 127iE+01 

0.1405E+01 

0 « J.297EtOI 

0.1445E+01 

0. 1325E+G1 

0. 1484E401 

0 . 1355E401 

0. 1519E+01 

0 1 1386E+01 

0. 1553E+01 

0.1413E+01 

G.15B4E+01 

0 • 1451E+01 

0.U14E+01 

0.1485E+01 

0.1645E401 

0.1519E+01 

0 ♦ 1677Ef01 

0 . 1555E+01 

0 . 1 7 1 3E+0 1 

0 « 1593E+01 

0.1755E+01 

0.1634E+01 

0.18G4E401 

0.1680E+01 
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0.2551- 4-01 

0 . 4 174E-01 

0. 6043E+00 

0 . I791E+01 

0.1363E+01 

0. 1731E+01 

0 . 260E+01 

0.4645E-01 

0 , 6155E+00 

0.1852E+01 

0. 19333+01 

0.1789Et01 

0 . 265E+01 

0 . 5248E-01 

0. 6279E+00 

0.1917E+01 

0.2012E+01 

0.1855E+01 

Q.270E+01 

O.5975E-01 

0 . 6-114E+00 

0 . 19S3E+01 

v 4 2101 tf 01 

0 , 19303x01 

0 »2 V 5E+01 

0 . 6816E-01 

0.4359E+00 

0 . 2G50E+Q1 

0 . 2197E+0 1 

0 , 2014Er0i 

0.280E+01 

0.7753E-01 

0.A714E+00 

O.2114E+01 

0. 2296E+01 

0 . 2107E101 

0 , 285E+01 

0 . 8767E-01 

0 . 6878E+00 

0.2173E+01 

0 • 2396E+01 

0 . 2207E+0 1 

a . 290E+01 

0 . 9832E-01 

0.7053E+00 

0 .22253+01 

0.2491E+01 

0 . 2313£t01 

0 . 295E+01 

0 • 1092E+00 

0.7240E+00 

0 < 2269E+01 

0 . 2575E+Q1 

0.2421E+01 

0.300E+01 

0 . 1200E+00 

0.7443E+Q0 

0.2305E+01 

O.2643E+01 

0 . 252?Et01 

C-.305E+01 

0 . 1305E+00 

0.7666E+00 

0.2332E+G1 

0 . 2692E+01 

0 . 2632Ef01 

0 . 310E+G1 

0 . 1403E+00 

0.7915E+00 

0.2354E+01 

0.2719E+01 

0.2725E+01 

0 . 315E+01 

0.1491E+00 

0.8196E+00 

0.2374E+01 

0.2723E+01 

0.2805E4-01 

0. 320E+01 

0. 1569E+00 

0 . 8513E+Q0 

0 .2395E+01 

0 . 2706E+01 

0.2869E+01 

0 . 325E+01 

0.1633E+00 

0. 8870E+00 

0.2424E+01 

0 . 2674E101 

0. 2? 14Et01 

0 . 330E+01 

0 . 16S3E+0Q 

0. 9268E+00 

0.2465E+01 

0..2635E+01 

0 . 2941Et01 

0.335E+01 

0. 1717E+00 

0.9702E+00 

0 .2524E+01 

0.2596E+01 

0.2951E+01 

0 4 340E1 01 

0.1735E+00 

0.10HE+G1 

0.2605E+01 

0.2571E+01 

0.2947Et01 

0.345E+01 

0. 1738E+00 

0 . 1063E+01 

0.2703Ef01 

0 * 2569Et01 

0 . 2935E+01 

0 • 35QE+01 

0 . 1723E+00 

0. 11C9E+01 

0.2834E+01 

0 « 2599E+01 

0 . 2921E+01 

0.355E+01 

0 . 1691E+00 

oaisoE+oi 

0.2976E+C1 

0 . 2669E+01 

0.2913E+01 

0 . 360E+01 

0.1643E+00 

0.1133E+01 

0.3129E+01 

0 . 27S1E+01 

0.2916E+01 

0.365E+01 

0. 1576E+Q0 

0 . 1204E+01 

0.3279E+01 

0.2932E+01 

0 . 2939E+01 

0 . 370E+01 

0. 1492E+G0 

0.1210E+01 

0. 3415E+01 

0.31 14E+01 

0.2985E+01 

0 i 375E+01 

0 . 1391E+00 

0 » 1 197E+01 

0.3521E+01 

0.3314E+01 

0 . 30583+01 

o.seoEioi 

0.1274E+00 

0.1162E+01 

0.3580E+01 

0.3512E+01 

0.3157Et01 

0.395E+01 

0 • 1142E+0Q 

0.1104E+01 

0.3578E+01 

0.3635E+01 

0.3279E+01 

0 . 390E+Q1 

V 0 . 9989E-01 

0. 1023E+Q1 

0 . 35Q1E+01 

0.3806E+01 

0.3417E+01 

0 .-395E+01 

’ 0.8486E-01 

0.9194E+00 

0.3341E+01 

0 , 3849E+01 

0 .35603+01 

0 . 400E+01 

* 0 . 6964E-Q1 

0 . 797IE+00 

0.3094E+Q1 

0.3785E+01 

0.3696E+01 

0.405E+C-1 

/ 0.5486E-01 

0.6612E+00 

0.2763E+01 

0 . 3592E-r0i 

0.3806E+01 

0.410E+Q1 

■ 0.4117E-01 

0.5187E+00 

0 . 2361E+01 

0 . 3254E+01 

0.3873E+01 

0.415E+01 

0.2920E-01 

0.3774E+00 

0 . 1908E+01 

0 . 2754E+01 

0.3S75E+01 

0.420E+01 

0 » 1944E-01 

0 . 2456E+00 

0 4 1435E+Q1 

0.2132E+01 

0. 37923+01 

0 ♦ 425E+01 

0.1220E-01 

0. 1302E+0Q 

0 . 975SE+0Q 

0 . 1387Ef01 

0.3609E+01 

0 ♦ 430E+01 

0.7572E-02 

0 . 3582E-01 

0 . 5687E+00 

0,57m9EtOO 

0 *33173+01 

0 . 435E+01 

0 . 551SE-02 

-0.3645E-01 

0 . 2461E+00 

-0.2381E100 

0.2915E+01 

0 . 440E+01 

0.5997E-02 

-0 • 8919E-01 

0. 2826E-01 

-0 . f 743E+00 

0.2419E+01 

0 » 445E+01 

0.9145E-02 

-0* 1274E+00 

-0 .8474E-01 

-0.1554E+01 

0 . 1356E+01 

0.450E+01 

0 . 1536E-01 

-0.1556E+00 

-0.1166E+00 

-0. 1914E+01 

0. 1270E+01 

0 . 455E+01 

O.2511E-01 

-0.1734E+00 

-0.1121E+00 

-0 ♦ 2G20E+01 

0.7115E+00 

0 . 460E+01 

0.3S23E-G1 

-0. 1716E+00 

-0.1249E+Q0 

-O.lSSSErOl 

0.2306E+00 

0.46SE+01 

0.527 IE-01 

-0.1319E+00 

-0.1974E+00 

-0, 1568E+01 

-0. 1322E+00 

0.470E+01 

0. 6347E-01 

-0.3232E-01 

-0.3373E+00 

-0. li 65 Et01 

-0.3563E+00 

0 . 475E+01 

0.61S8E-01 

0 . 1385E+00 

-0 . 5062E+0Q 

-0 . 7760E+00 

-0 . 4481E+00 

0. 480E+01 

0.3809E-01 

0.361BE+00 

-0.6224E+00 

-0. 4752E-f00 

-0.43303+00 

0.485E+01 

-0. 12.43E-01 

0.5719E+00 

-0.6Q31E+Q0 

-0 . 2S28E+00 

-0.349SE+00 

0.49GE+01 

-0.7666E-01 

0.6566E+00 

-0 • 4193E+00 

-0.1665E+00 

-0.2351E+00 

0.495E+01 

-0 . 1Q68E+00 

0.4S91E+00 

-0. 1S0SE+00 

-0 • 7324E-01 

-0.113BE+00 

0 . 500E+Q1 

0. OO0OE+OO 

O.OOOOE+OO 

0*00003+00 

0 . OOOOEtOO 

0.0000E+00 


Table 5.9 Fourth Order Terms of the Optimal Cost Functional 
Indexed by Time for Example 3 


TIME 

Kl(l) 

Kl(2) 

KK3) 

Kl<4> 

O.OOOE+OO 

-0.5675E40Q 

0.103£E400 

-0.35S2E-01 

-0.6325E+O0 

0.500E-01 

-0.5675E+0O 

0.1036E400 

-Q.359OE-01 

-0.6325E400 

Q.IOOE+OO 

-0.5674E+00 

0. 1035E4OO 

-O.36O0E-01 

-0.6326E+OO 

0.15OE+OO 

-O.5673E+00 

0.1035E+00 

-0.3611E-01 

“0.6327E4OO 

0 :200E+00 

-O.5672E+0O 

0 »103£E+OO 

-0.3623E-01 

-O*£328E+0O 

0.250E+OO 

-0.S671E+OO 

0. 1036E+00 

-O.3636E-01 

-0.6329E400 

0.300E+00 

-0.56A9E4O0 

0.1037E400 

-0.3649E-01 

-0.6331E4OO 

0i350£+00 

-0.5668E+00 

0.1039E+OO 

-0.3662E-01 

-0.6332E400 

0.400E+00 

-0.5666E+OO 

0. 1O41E+0O . 

-0.3675E-01 

-0.£334E+00 

0.450E+00 

-0.5664E+00 

0.1044E+00 

-0»3£87E“01 

-0.6336E+00 

0.500E+00 

-0.5661E+00 

O.1047E+O0 

-0.3699E-01 

-0.6339E+00 

0»550E+00 

-0.5659E+00 

0.1O51E+OO 

“0.3709E-O1 

-0.£341E400 

0.600E+00 

-O.5657E+O0 

0. 1055E400 

-0«3717E-O1 

-0.6343E+00 

0.650E+00 

-0.5655E+00 

0.1059E400 

-0.3723E-01 

-0.6345E+00 

0.700E400 

-0.5653E+00 

O.1O&4E40O 

-0.3727E-01 

-0.6347E+00 

0.75OE4OO 

-0.5651E400 

0.10c>9E+OO 

-0.372BE-0 1 

-O.A349E+0O 

O.80OE+O0 

-O*5649E4O0 

0.1075E+00 

-0.3727E-G- 

-0.6351E+00 

O*85OE+O0 

-0.5648E+00 

0.1080E400 

-0.3723E-01 

-0.6352E+OO 

0.900E+00 

-O.5648E+O0 - 

0.1085E+00 

-O.3717E-01 

-0.6352E+0Q 

Q.950E+00 

-0.5A47E+Q0 

O.1O9OE4O0 

-Oi3709E-0i 

"0.A353E+00 

O.1O0E+01 

-0.5648E+00 

O.1094E1O0 

-0.3A99E-01 

-0.6352E+00 

(M05E+O1 

-0.5649E+00 

0. 1098E+00 

-0.3689E-01 

-0.6251E+00 

O.ilOE+Ol 

-0.5650E+0O 

0.1101E+00 

-0.3677E-01 

-O.6350E+OO 

0.115E+O1 

-0.5652E+00 

0* 11O3E400 

-0.3667E-0I 

-0.6348E400 

0.120E+0J. 

-0.5655E400 

0.1105E400 

-0.3657E-01 

-0.6345E+00 

O.125E+01 

-0.5657E400 

0* 1105E+00 

-0.365OE-O1 

-0.A343E+00 

0.13OE401 

-0.5660E400 

0.1104E+00 

-0.3647E-01 

-0.A340E+0O 

0.135E+01 

-O.’3(i63E+0O 

0.1102E+00 

-0.364SE-01 

-O.633AE+O0 

0»140E+01 

“0»5£67E400 

0.11OOE+OO 

-0.3655E-O1 

-0.6333E+00 

0.145E+O1 

-O.5669E+0O 

0.1096E+00 

-0.3668E-01 

-O.6331E+0O 

0.150E+01 

-0 .5A72E+00 

0.1092E+00 

-0 .36S8E-0I 

-0.6328E400 

0.155E401 

-0«5673E+00 

0.I0B8E+00 

-0.3717E-01 

-0.6327E+00 

0.160E+01 

~0»5£74E+OO 

0.1083E4OO 

-0.3755E-01 

-0.632AE40O 

0.165E+01 

-0*5£74E+00 

0.1079E+00 

. -O.3801E-O1 

-0.A326E+0O 

0.17OE+O1 

-O.5672E+O0 

0.1075E+OO 

-0.3857E-01 

-0.A32SE400 

0.175E+01 

-0.5669E+00 

O.1073E+O0 

-0.3921E-01 

-0.6331E+00 

G.1S0E401 

-0.5664E400 

0.1072E+00 

-0.3992E-01 

-0.6336F.+OO 

0* 185E+01 

-0.5658E+00 

0.1073E+00 

-O.4O71E-01 

-0.6342E400 

0.190E+01 

-0.5650E+00 

0.1077E+O0 

, -O.4155E-01 

-0.635OE+OO 

0.195E+OI 

-O.564OE+0O 

O.1083E+0O 

' -0.4242E-01 

-0 . 6360E+0O 

0.200E+01 

-0.5629E+00 

0.1092E400 

-0.4331E-O1 

-0t6371E+OO 

0.2O5E401 

-0.56UE+00 

0.1105E+00 

"0.4419E-O1 

-O.A3S4E+0O 

0.2I0E+01 

-0.5AO2E+OO 

O.1122E+0O 

-O.45O5E-01 

-0.6398E+00 

0.215E+01 

-0.55B8E+OO 

0.1142E+00 

-0.4584E-01 

-0.6412E+00 

0.220E+01 

-0.5572E+00 

0.1165E+00 

~0»465£E-0l 

-0.6428E+00 

0.225E401 

-0.5556E+OO 

0.1192E+00 

-0.4717E-G1 

“0*£443E+O0 

0.230E+01 

-0.5541E400 

0.1223E+O0 

-0.4765E-01 

-0.6459E400 

0«235E+01 

-0.5527E+00 

0.1255E+OO 

-0.4798E-01 

-0.A473E+00 

0.240E+01 

-0.5514E+00 

0.1290E+00 

-0.4815E-01 

-G.A486E+00 

0.245E+01 

-0»5503E+00 

0.1327E+O0 

-0.4815E-O1' 

-0 .64.97E+0O 

0.250E+01 

-0.5494E+00 

0.13A3E+00 

-0.479SE-01 

-0.6506E4G0 

0.255E+01 

-0.5488E+00 

0. 14O0E+O0 

-0.4764E-01 ■ 

-0.A512E+00 
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0.260E+01 

-0.54e5E+00 

O.i434Ef0O 

-0. 4715E-01 

-0 . 6515EIOO 

0.265E+01 

-0.5486E+00 

0 • 1 467Ei00 

-0.4653E-01 

-0.6514E+00 

0.270E+01 

-0.5491E+00 

0.1495E+00 

-0.4582E-01 

-O.A509EIOO 

0.275E*01 

-0.5499E+00 

0 . 1519E+00 

•-0.4505E-01 

-0 . 6500EE00 

0.280E+01 

-0.5511E+00 

0 . 153SE-fOO 

-0.4429E-G1 

-0.6488E-KK) 

0.285E+01 

-0.5527Ei00 

0.1550E+00 

-0.4360E-C1 

-0.6473Ef00 

0.290E+01 

-0.5545E+00 

0.1555E+00 

-0.4304E-01 

-0.6455E+00 

0.295E+01 

-0.5566E+00 

0.1553E+00 

-0.4269E-01 

-0.6434E+00 

0.300E+01 

-0.5587E+00 

0. 1543E+00 

-0.4262E-01 

-0.6413EE00 

0.305Et01 

-0.5609E+00 

0.1527E+00 

-0.4291E-01 

-0.6391E+00 

0.310E+01 

-G.5630E+00 

0.1505E+00 

-0.4363E-01 

-0.4370E+00 

0.315E+01 

-0.5648E+00 

0.1478E+00 

-0.4486E-Q1 

-0. 5352E+00 

0.320E+01 

-0.5662E+00 

0.1447E+00 

-0.4665E-01 

-0.6338E+00 

0.325E+01 

-0.5670E-F0O 

0* 1415E4-00 

-0.4904E-01 

-0.6330E+00 

0.330E+01 

-0.5672E+00 

0. 1384E+00 

-0.5206E-01 

-O.S328E+CO 

0.335E+0.L 

-0«5fio5E-K)0 

0* 135&E+0Q 

-0.5573E-01 

-0.6336E+00 

0.34QE+01 

-0.5648E+00 

0.1335E+00 

-0.6002E-01 

-0.6353EI00 

0.345E+01 

-0.5619E+0G 

0.1324E+00 

-0.6491E-01 

-0.6381E+00 

0.350E+01 

-0.5580E+00 

0. 1325E+00 

-0.7034E-01 

-0.6421E+00 

0.355E+01 

-0.5527E+00 

0.1342E+00 

-0.7621E-01 

-0.6473E+00 

0.360E+01 

-0.5462E+00 

0.1379E+00 

-0.8244E-01 

-0.6538E+00 

0.365E+01 

-0.5385E+00 

0. 1437E+00 

-0.8889E-01 

-G.6615E+00 

0.370E+01 

-0.5296E+00 

0.1520E+00 

-0.9542E-01 

-0,o704E+00 

0i375Ei01 

-0.5197E+00 

0* 1629E+00 

-0.1019E+00 

-G.8803EfG0 

0.3S0E+01 

-0.5089E-J-00 

0.1766E+00 

-0* 1081E+00 

-0.6911E+00 

0.3S5E+01 

-0.4974E+00 

0.1932E+00 

-0.1139E+00 

-0.7026E+00 

G.390E+01 

-0.4854E+Q0 

0.2127E+00 

-0. 1191E+0Q 

-0.7145EfOG 

0.395E+01 

-0.4733E+00 

O.2350EI00 

-0.1235E+G0 

-0.7266E+00 

0.400E+01 

-0.4&14E+00 

0 ♦ 2600E+00 

-0.1270E+00 

-0.7385E+00 

0.405E+01 

-0.4500E-J-00 

0.2874E+00 

“0. 1295E+00 

“0. 7499E-fOO 

0.410E+01 

-0.4396E+00 

0.3169E+00 

—0 » 130BE-5-00 

-0.7603E+00 

0.415E+01 

-0.4305EI00 

0.3480E+00 

-O'. 1307E+0Q 

-0.7693E+G0 

0.420E+01 

-0.4232E+00 

0.3801E+00 

-0. 1294E+00 

-G*7746EiOO 

0.425E+01 

-0.4182E+00 

0.4126E+00 

-0.1268E+00 

-0.7817E+00 

0.430E+01 

-0.4157E+00 

0.4446E+00 

-0.1229E+00 

-G.7841EiOO 

0.435E+01 

-0.4162E+00 

0.4753E+00 

-0.1180E+0G 

-G.7336E+00 

0«440Ei01 

-0.4200E+G0 

0.5036E+00 

-0.1122E+00 

-0.7798E+G0 

0,445Ei01 

-0.4273E+00 

0.5285E+00 

-0.1060E+00 

-0.7725E+00 

0.450E+01 

-G.4381EEOO 

0.5489E+00 

-0.9967E-01 

-0.7617E+00 

0.455E+01 

-0 i4524E+00 

G.563BE+00 

-0. 9390E-03. 

“0.7475EiOO 

0.460E+0X 

-0.4698E+00 

0.5722E+00 

-0.8934E-01 

-0 . 7300E+00 

0.465E+01 

-0.4899E+00 

0.5734E+00 

-0.8678E-01 

-0.7101E+00 

0.470E+01 

-0.5117E+00 

0.5669E+00 

-0.8709E-01 

-0.6883E+00 

0.475E+01 

-0.5341E+00 

0.5527EEOO 

-0.9121E-01 

-0.6659E+00 

0 . 480E+01 

-0.5559E+00 

0 * 5312E+00 

-0.1001E+00 

-0 . 6442Ef GO 

0.485E+01 

-0 * 5753E+00 

0.5033E+00 

-0.1146E+00 

-0.6249E+00 

0.490E+01 

-0.5905E+00 

0.4705E+00 

-0. 1355E+00 

-G.6098EI00 

0.495E+01 

-0.5995E+00 

0.4352E+00 

-0.1637E+00 

-0.6G08E+00 

0.500E+01 

-0.6004E+00 

0.4000E+00 

-<M996EtOQ 

-0.6000E+00 
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TIME 

K2 ( 1 ) 

K2(2) 

K2<3) 


K2(4> 

K2 ( 5 ) 

K2(6> 

0.000E400 

0.6744E-01 

-0.7752E-01 

-Of 1763E+00 


-0.1935E-02 

0.8026E-01 

0.4751E-01 

0.500E-01 

0.6773E-O1 

-0.7705E-01 

-0 f 1759E+00 


-0. 1916E-02 

Of 8032E-01 

0.4738E-01 

0. 100E+00 

0.6801E-01 

-0.7660E-01 

-Ot 1755E+00 


-0.1B70E-02 

0.8044E-01 

0.4729E-01 

0.150E+00 

0. 6827E-01 

-0.7620E-01 

-Of 1751E+00 


-0. 1795E-02 

0.8065E-01 

0.4726E-01 

0.200E+00 

0, 6850E-01 

-0.7587E-01 

-0.1747E+00 


-0. 1491E-02 

0.8094E-01 

0.4731E-01 

0.250E+00 

0,<S368E-0i 

-0.7564E-01 

-0.1744E+00 


-0, 155AE-02 

0.8131E-01 

0.4745E-01 

0.300E+00 

Of 6881E-01 

-0 .7554E-01 

-Of 1742E+00 


-Of 1391E-02 

0.8178E-01 

0.4768E-01 

0.350E+00 

0.6888E-01 

-0.75A0E-01 

-Of 1742E+00 


-0.1198E-02 

0.8233E-01 

0.4801E-01 

0.400E+00 

0.6887E-01 

-0.7582E-01 

-Of 1744E+00 


-0.9S11E-03 

0.8296E-01 

0,4844E-01 

0.450E+00 

0,6379E-01 

-Q.7624E-01 

-0.1747E+00 


-0f7437E-03 

0.3367E-Q1 

0.489SE-01 

0.500E+00 

0.6862E-01 

. -Of 7686E-01 

-0.1753E+00 


-0.4916E-03 

0.8443E-01 

0.4961E-01 

0.550E+00 

0.6837E-01 

-0.7768E-01 

-0.1761E100 


-Of 2314E-03 

0# 8524E-01 

0.5033E-01 

0.600E+00 

Of 6803E-01 

-Ot 7871E-01 

-Of 1772E+00 


0.2925E-04 

0.S407E-01 

0f5113E-01 

0.650E+00 

0# 6763E-01 

-0.7994E-01 

-Ot 1785E+00 

i 

0.2S21E-03 

0.8690E-01 

0.5198E-01 

0.700E+00 

Of 6715E-01 

-Of 8134E-01 

-0.1801E+00 


0.5182E-03 

0.8772E-01 

0.52S6E-01 

0.750E+00 

0.6643E-01 

-0.8289E-01 

-0.1820E+00 


0.7286E-03 

0.8848E-01 

0.5376E-01 

0.800E+00 

0.6607E-01 

-0.8455E-01 

-0.1840E+00 


0.9044E-03 

Of 8918E-01 

Of 5463E-01 

0.850E4-00 

Of 6550E-01 

-Ot 8629E-01 

-0.1862E+00 


0.1037E-02 

0.8978E-01 

0.5546E-01 

0.900E+00 

0 • 6494E— 01 

-0.8806E-01 

-Ot 1885E+00 


0.1119E-02 

Of 9027E-01 

0.5621E-01 

0.950E+00 

Of 6442E-01 

-0.8979E-01 

-0.1909E+00 


0.1144E-02 

Ot 9062E-01 

0i5684E-01 

0.100E+01 

0.6396E-01 

-0.9144E-01 

-0.1933E+00 


Of 1106E-02 

0.9082E-01 

0.5734E-01 

0.105E+01 

0.63A0E-01 

-Ot 9293E-01 

-0.1956E+00 


Of 1004E-02 

0.9086E-01 

0.5767E-01 

O.IIOE+Oi 

0.6337E-01 

-0.9421E-01 

-Of 1977E+00 


0.8370E-03 

0.9073E-0! 

0f57B2E-01 

0.115E+01 . 

0 f 6329E-01 

-0.9522E-01 

-Of 1997E+00 


0.6074E-03 

Of 9044E-01 

0.S777E-01 

0.120E+01 

0.6340E-01 

-0.9591E-01 

-Of 2013E+00 


0.3210E-03 

0.9000E-01 

’ 0.5750E-01 

0.125E+01 

Of 6371E-01 

-0.9421E-01 

• ~0 f 2026E+00 
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-0* 1304E-04 

0. 8941E-01 

0.5702E-01 

0* 130E+01 

G.6425E-01 

-0.9610E-01 

-0,2034E+00 


-0.3S21E-03 

Q.S872E-01 

O.5633E-01 

0. 135E+01 

0.6502E-01 

-0.9555E-01 

-0.2038E+00 


-0.7497E-03 

0.8794E-01 

0.5544E-01 

0.140E+01 

0 ( ^03E-0i 

-0.9455E-01 

-0.2037E+00 


-0 . 1156E-02 

0.8713E-01 

O.5442E-01 

0.145E+01 

0. 6727E-01 

-0.9310E-01 

-0.2031E+00 


-0.151SE-02 

0.S634E-01 

0.5326E-01 

0.150E+01 

0» 6S73E-01 

-0.9123E-01 

-0.2020E+00 


-0. 1S29E-Q2 

0.8563E-01 

0.5203E-01 

0.155Er0i 

0.7037E-01 

-Q.8899E-01 

-0.2004E+00 


-0.2060E-02 

0.8507E-01 

0.5079E-01 

0.160E+01 

0.7215E-01 

-0.8A46E-01 

-0.1984E+00 


-0.2182E-02 

0.8472E-01 

0.4959E-01 

0.165E+01 

0.7403E-01 

-0.8373E-G1 

-0.1960E+00 


-0.2164E-02 

0.8467E-01 

O.4853E-01 

0.170E+01 

0.7595E-01 

-0.8094E-01 

-Q.1935E+00 


-0.1975E-02 

0.8499E-01 

0*4768E-0i 

0.175E+01 

0.7782E-01 

-0.7821E-01 

~0* 1908E+00 


-0.1588E-02 

0.S577E-01 

0.4713E-01 

G.IBOE+Oi 

0.7958E-01 

-0.7573E-01 

-0.1883E+00 


-0.9765E-03 

0.S707E-01 

0.4697E-01 

0.185E+01 

0.8113E-01 

-0.7367E-01 

-0.1861E400 


-0.1215E-G3 

0.8897E-01 

0.4728E-01 

0.190E+01 

0.S233E-01 

-0.7222E--01 

-0.1843E+00 


0.9912E-03 

0.9152E-01 

0.4816E-01 

0.195E+01 

0.8326E-01 

-0.7160E-Q1 

~0. 1833E+00 

- 

0.2367E-02 

0.9476E-01 

0.4967E-01 

0.2.00E+01 

G.B366E-01 

-0.7200E-01 

-0.1832E+00 


0.4004E-02 

0.9S73E-01 

0.5188E-01 

0.205E+01 

0.8352E-01 

-0.7361E-01 

-0. 1643E+00 


Q.5B88E-02 

0 * 1034E+00 

0.54S5E-01 

0.210E+01 

0.8278E-01 

-0.7662E-01 

-0.1S68E+0G 


0.7995E-02 

0.1088E+00 

0.5861E-01 

0.215E+01 

0.8139E-01 

-0.8118E-01 

-0.1909E400 


0.1029E-01 

0.1149E+00 

0.6316E-01 

0.220E+01 

0.7931E-01 

-0.8740E-01 

-C. 1939E+00 


0.1272E-01 

0.1216E+00 

0.6843E-01 

0.225E+01 

0.76S5E-01 

-0 * 9535E-01 

"0 .2048E+00 


0.1524E-01 

0.1287E+00 

0.7455E-01 

0.230E+01 

0.7314E-01 

-0.1051E+00 

“0.2148E+00 


0.1776E-01 

0.1362E+00 

0*8127E-01 

0 f 235E+01 

0.4914E-01 

-0.1165E+OO 

"0.2269E400 


0.2022E-01 

0. 1439Ef00 

0.8854E-01 

0.240E+01 

0.6463E-01 

-0.1295E+00 

-0.2411E400 


0.2254E-01 

0. 1516E+G0 

0.9621E-01 

0 . 245E+01 

0+5973E-01 

-0.1440E+00 

-0.2574E+00 


0.2461E-01 

0 ♦ 1 590E+00 

0.1041EE00 

0.250E+01 

0.5462E-01 

“0* 1595E+00 

-O * 2757E+00 


0.2636E-01 

0.1660E+00 

0.1120E+00 

0.255E+01 

0.494SE-01 

-0.1759E+00 

-0.2956E+00 


0.2771E-01 

Q.1723E+00 

0. 1197E+00 

Q.260E+01 

0.4453E-01 

-0.1926E+00 

-Q.3169E+00 


0.2856E-01 

O.1777EE00 

G.1269EE00 
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0.285E+01 

0.4001E-01 

-0. 2091E+00 


0.2G86E-01 

0 . 1819E40Q 

0.270E+01 

0.3618E-01 

-0. 224SE+00 


0.2B56E-01 

0. 1847E+00 

0.275E+01 

0.3331E-01 

-0. 2391E400 


0.2764E-01 

0.1859E+00 

0.280E4G1 

0 .3165E-01 

-0.2512E+00 


0.2609E-01 

0. 1856E+00 

0.285E+01 

0.3145E-01 

-0.2606E+00 


0.2395E-01 

0. 1S36E+00 

Q.290E401 

0.3288E-01 

-0,2£66E400 


0.2126E-01 

0. 1799E+00 

0.295E+01 

0.3612E-01 

-0.2686E+00 


0. 1812E-01 

0. 1749E+00 

0.300E+01 

0.4125E-01 

-0.2662E+00 


0.1464E-01 

0« 1687E+00 

0.305E+01 

0.4327E-01 

-0.2591E+00 


0.1097E-01 

0. 1617E+00 

0.310E+01 

0.5712E-01 

-0.2474E+00 


0.7266E-02 

0. 1543E+00 

0.315E+01 

0.6765E-01 

-0.2313E+00 


0.3683E-02 

0. 1472E+00 

0.320E+01 

0.7964E-01 

-0.2111E+00 


0.3S51E-03 

0* 1409E+00 

0.325E+01 

0.9278E-01 

-0«1877E+00 


-0.2484E-02 

0. 1359E+0Q 

G.330E+01 

0.1067E+00 

-0.1619E400 


-0.4808E-02 

0.1329E400 

0.333E+01 

0t 1211E+00 

-0. 1349E+00 


-0.6508E-02 

0.1323E+00 

0.340E+01 

0. 1356E+00 

-0.1079E400 

i 

-0.7551E-02 

0.1346E400 

0.345E+01 

0.1499E+00 

-0.3204E-01 


-0.7956E-02 

0.1398E40Q 

0.350EI01 

0.1635E+00 

-0.5849E-01 


-0.7793E-O2 

0.1480E400 

0.355E+01 

0.1764E+00 

-0.3819E-01 


-0.7183E-02 

0.1590E+00 

0.360E+01 

0.18B3E+00 

-0.2178E-01 


-0.62SSE-02 

0. 1724E400 

0.365E+01 

0.1993E+00 

-0.9561E-02 


-Q.5301E-02 

0.1875E400 

0.370E+01 

0.2092E+00 

-0.1427E-02 


-0.4431E-02 

0.2035E400 

0.375E+01 

0.21B2E+00 . 

0.3152E-02 


-0.3891E-02 

0.2195E400 

0 .380E+01 

0.2264E+00 

0.5111E-02 


-0.3878E-02 

0.2342E400 

0.385E+01 

0.234QE+00 

0.5752E-02 


-0.4555E-02 

0.2466E400 

0.390E+01 

0.2411E+00 

0.6650E-02 


-0.6038E-02 

0.2556E400 

0.395E+01 

0.2477E+00 

0.9545E-02 


-0.8379E-02 

0.2602E40G 

0-400E401 

0.2539E+00 

0.1619E-01 
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-0.3391E+00 
0. 1333E+O0 
-0.361SE400 
0.13S6E+00 
-0.3842E+00 
0.1425E+00 
-0.4059E+00 
0.1448E400 
-0.4258E+00 
0 . 1453E+00 
-0 »4436E+00 
0.1437E400 
“0.4583E400 
0.1401E+00 
-0.4691E+00 
0.1343E40G 
-0.4755E+00 
0.1266E+00 
-0.4770E+00 
0« 1172E+00 
-0.4734E+00 
0.1064E+00 
-0. 4645E+00 
0.9471E-01 
-0.4507E+00 
0.8279E-01 
-0.4325E+00 
0.7129E-01 
-0.4107E+00 
0.6094E-01 
-0.3864E+00 
0 . 5247E-01 
-0.3609E+00 
0.4657E-01 
-0.3358E+00 
0.4383E-01 
-0.3125E+00 
0.4471E-01 
-0.2925E+00 
0.4947E-01 
-0.2773E+00 
0.5817E-01 
-0.2673E+00 
0.7063E-01 
-0.2647E+00 
0.8642E-01 
-0.2683E+00 
0.1049E+00 
-0.2784E+00 
0.1250E+00 
-0.2942E+00 
0.1457E+00 
-0.3142E400 
0» 1&58E+00 
-0.3364E+00 


ORIGINAL PAGE IS' 
Op POOR QUALITY 



-0.115if.E-01 

0.2596E+00 

0.1836E+00 

0. 405E+01 

0.2595E+00 

0.2818E-01 

-0. 35B5E+00 


-0.1S47E-01 

0. 2532E+00 

0.197BE+00 

0. 410E+01 

0 . 2443E+00 

0.4673E-01 

-0.3776E+00 


-0.1993E-01 

0.2409E+00 

0.2069E+00 

0.415Et01 

0.2681E+00 

0.7249E-01 

-0.3904E+00 


-0.2468E-01 

0.2229E+00 

0.2095E+00 

0.420E+01 

0.2701E+00 

0.1053E+00 

-0.3937E+00 


-0.2940E-01 

0.2000E+00 

0.2045E+00 

0.425E+01 

0.2700E+00 

0. 1438E+00 

-0.3844E+00 


-0.3375E-01 

0.1735E+00 

0.1912E+00 

G.430E+01 

0.2672E+00 

0.1858E+00 

-0.3598E+00 


-0.3740E-01 

0.1453E+00 

0. 1694E+00 

0.435E+01 

0.2611E+00 

0.2273E+00 

-0.3180E+00 


-0.4011E-01 

0.1177E+00 

0. 1397E+00 

0.440E+01 

0.2518E+00 

0.2634E+00 

-0.25B3E100 


-0. 4179E-01 

0.9334E-01 

0.1033E+00 

0.445E+01 

0.2395E+00 

0.2879E+00 

-0.1814E+00 


-0.425SE-01 

0.7475E-01 

0.6249E-01 

0. 450E+01 

0.2253E100 

0.2944E+00 

-0.9062E-01 


-0.4287E-01 

0.6414E-01 

0.2017E-01 

0.455E+01 

0.2113E+00 

0.2767E+00 

0.9B27E-02 


-0.4334E-01 

0* A273E-01 

-0.2004E-01 

0.460E+01 

0.200SE+00 

0.2300E+00 

0.1132E100 


-0.4483E-01 

0.7032E-01 

-0.5431E-01 

Q.465E+Q1 

0. 19B2E+00 

0. 1523E+00 

0.211AE+00 


-0.4819E-01 

0.8437E-01 

-0.7916E-01 

0.470E+01 

0.2089E+00 

0.4601E-01 

0.2938E+00 

f 

-0.5394E-01 

0.1024E100 

-0.9205E-01 

0.475E+01 

0.2390E+00 

-0.8173E-01 

0.3611E+00 


-0.6178E-01 

0.1172E+00 

-0.9210E-01 

0.4B0E-I-01 

0.2941E+00 

-0.2183E+00 

0.3995E+00 


-0.7013E-01 

0.1230E+00 

-0 *S0 4 4E-01 

0.485E+01 

0.3788E+00 

-0.3466E+00 

0.4102E+00 


-0.7555E-01 

0.1141E+00 

-0.6043E-01 

0.490E+01 

0.4951E+00 

-0.4470E+00 

0.3954E+00 


-0.7236E-01 

0.8779E-01 

-0.369SE-01 

0.495E+01 

0.6417E+00 

-0.5004E+00 

0.3617E+00 


-0.5245E-01 

0.4594E-01 

-0.1568E-01 

0.500E+Q1 

0.8138E+00 

-0.1401E-01 

-0.1073E-02 


-0.5224E-02 

0.5397E-03 

-0.1416E-02 
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TIME 

0 , 0003+00 
0 . 500E-01 
0 * 1QQE+0Q 
0* 150E+00 
0 « 200E+0Q 
0.250E+00 
0 .300E+00 
0 * 350E+00 
0.400E+00 
0.450E+00 
O.SOOE+OO 
0.550E+00 

V 

0 * qOOEtOO 
0 1 650E+00 
0.700E+00 
0.750E+00 
OiSOOE+00 

0 . S50E+00 
0 1 900E+00 
0.950E+G0 
0 . 100E+01 
0 *1053+01 
O.UOEtOl 
0 » 115E+01 
0 * 120E+01 


K3 ( 1 ) 

K3 (5) 

-0* 4478E-01 
0 » 167SE-01 
-0 . 4498E-01 
0 . 16B6E-01 
-0*45293-01 
0.1700E-01 
-0.4572E-01 
0 , 1721E-01 
-0.4626E-01 
0 . 175GE-01 
-0,46?3E-01 
0,1786E-01 
-0.4771E-01 
Q » 1829E-01 
-0 • 4859E-Q1 
0 * 187SE-01 
-0.4956E-01 
0.1933E-01 
-0 ( 5060E-01 
0 . 1993E-01 
-0.5168E-01 
0.2055E-01 
-O.S277E-0I 
0,2120E-01 
-0 1 53B5E-01 
G-2183E-01 
-0 * S488E-01 
0.2244E-01 
-0.5582E-01 
0 » 2301E-01 
-0.5665E-01 
0.2350E-01 
-0 , 5732E-01 
0.2390E-01 
-0,5780E-Q1 
0.2418E-01 
-0 ♦ 5807E-Q1 
Q , 2433E-01 
-0.5811E-01 
Q*2433E-Qi 
-0,5739E-01 
0,24163-01 
-0.5742E-01 
0.2383E-01 
-0 • 5669E-01 
0 » 2332E-01 
-0 . 5573E-01 
0,22653-01 
-0.5456E-01 
0 » 2183E-G1 


K3 ( 2 ) 
K3 ( 6 ) 


-0.I316E-01 
0.7880E-02 
-0.1301E-01 
0 , 7394E-02 
-G.1307E-G1 
0.6971E-02 
-0.1337E-01 
0 * 6633E-02 
-0,i394E-01 
0.6424E-02 
-0.1460E-01 
0.6357E-02 
-0 • 1598E-Q1 
G . 6461 E-02 
-0 , 1747E-01 
0.6757E-02 
-0* 1927E-01 
0.7263E-02 
-0*21373-01 
0.79B8E-02 
-0.2374E-Q1 
0.S935E-O2 
-0.2634E-01 
0.1010E-01 
-0,29123-01 
0.1H7E-01 
-0, 3202E-01 
G.1301E-01 
-Q,3496E-0i 
0 . 1470E-01 
-0,37863-01 
0 » 165GE-G1 
-0.4064E-01 
0.1834E-01 
-0,4319E-01 
0.2018E-01 
-0 . 4543E-01 
0) 2193E-01 
-0 ,47263-01 
0.2353E-01 
“0 .486GE-01 
0.2491E-01 
-0*4936E-01 
0.2597E-01 
“0 . 4948E-01 
0 , 2665E-01 
-0 . 4892E-01 
0.2687E-01 
-0.4764E-01 
0«2658E-0i 


K3t3) 

K3<7) 


0.4101E+00 
-0.1709E+00 
0 « 4115E+00 
-0 . 1715E+0G 
O, 4128E+Q0 
-0 . 1721E+00 
0.4139E+00 
-0 . 1726E+0Q 
0.414BE+00 
-0.1731E+00 
0 ♦ 4155E+00 
-0 • 1736E+Q0 
0.415BE+D0 
-0* 1739E+00 
0.4157E+00 
“0. 1741E+00 
0,41513+00 
-0 , 174 1E+00 
0 . 4141E+00 
-0 , 1739E+00 
0 , 4126E+00 
-0. 1736E+00 
0.4105E+00 
-0 , 1730E+00 
0,40793+00 
-0 , 1722E+00 
0 , 40493+00 
-0 , 1712E+00 
0.4014E+G0 
-O.17OOE+0O 
0.3976E+00 
-0 , 1686E+00 
0 , 3935E+00 
-0 , 1670E+00 
0.3B93E+00 
-0 * 1653E+G0 
0.3B52E+00 
-0 .1 0 363+00 
6 , 3812E+00 
-0 , 1619E+00 
0 , 3775E+00 
-0, 1602E+00 
0,37443+00 
-0. 1537E+00 
0.3720E+00 
-0,15753+00 
0 , 3705E+00 
-0 . 1565E+00 
0, 3700E+00 
-0 , 1559E+00 


K3'4) 
K3 ( 3 > 


0 , 4023E+00 
-0 . 9253E-01 
0 . 4021E+00 
-0,92903-01 
0,40403+00 
-0.9329E-01 
0 , 4051E+00 
-0. 9370E-01 
0,40623+00 
-0,94102-01 
0,40743+00 
-0. 9448E-01 
0 , 40B6E+00 
-O.94S2E-01 
0, 409SE+00 
-0 , 951 IE— 01 
0 , 4 109E+00 
-0 , 9532E-01 
0,41183+00 
-0 , 9543E-01 
0 , 41263+00 
-0.9542E-01 
0.4131E+00 
-0,9528E-01 
0 , 4133E+00 
-0,94993-0 i 
0,41313+00 
-0.9454E-01 
0 . 4125E+00 
-0 , 9393E-01 
0 ,4114E+00 
-0,9315E-01 
0 , 4098E+00 
-0 , 9223E-01 
0,40783+00 
-0. 91173-01 
0 . 4053E+00 
-0 . 9000E-01 
0 , 4023E+00 
-0 . 3S75E-01 
0 . 3989E+00 
-0.8747E-01 
0.3952E+00 
-0.S620E-O1 
0 , 3914E+00 
-0.3500E-01 
0.3374E+00 
-0 , 8391E-01 
0.3B35E+00 
-0,83013-01 


Table 5.12 


0 . 125E4Q1 
0 , 135Et0i 
0 * i 3 a E t 0 1 
0. 140E4O1 
0.145E4O1 
0.150E401 
0 i 155E401 
0 » IoOEtOI 
0,165E40i 
0 • 170E4Q1 
0,175E40i 
O.lBOEfOi 
0. 185E4Q1 
0 » 190E401 

J 

0.195E401 
0 * 2O0E401 
0.205E+0J 
O«210E+O1 
0*215E40l 
O,22OE40i 
O.225E401 
0. 230E40J. 
0,2351401 
0 ♦240E401 
0, 245E401 
G»250E40i 
0 »255E40i 


-0.5322E-01 
0 » 2090E-01 
-0.5i73E-Oi 
0.J9S8E-01 
~0 . 5031E-01 
O.ISSIE-Oi 
~0 , 4835E-01 
0.1776E-O1 
-0.4/64E-01 
'Q.1478E-01 
“0 1 4666E-01 
0 . 1592E-Q1 
“0.46O7E-C-1 
0.1526E-01 
-0.4598E-O1 
0 * I4S7E-01 
-0.4652E-O1 
0.1478E-01 
-0 » 4779E-01 
0 * 1506E-01 
-0.4937E-Q1 
0»1574E-01 
-O * 5282E-0I 
O'* 1682E-Q1 
-G *5668£“01 
0 * 1S33E-C1 
-0,6143E~01 
0 , 2022E-01 
-0 . 6702E-01 
0*2246E-0.t 
-O * 7336E-01 
0 * 2497E-01 
-O.8031E-O1 
0 , 2769E-01 
“0 i S769E-01 
0 ,3031E-Oi 
-0.9528E-01 
0 , 3332E-01 
-0.1028E+00 
0 * 3599E-01 
-0 1 liOlErOO 
0 , 3S41E-01 
“0 . 1J.67E40O 
O , 4047E-O1 
-O . 1224E400 
0 * 42O3E-01 
-Q,127QE400 
0,43O1E~01 
-0* 13O1E40Q 
0,4331E-01 
-O, 1314E40Q 
0 ,4287E~Q1 
-0, 1310E4OO 
0 ,41641-01 


ORIGINAL Pass £g 
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0, 3708E400 


O * 3799E40G 
-O.8234E-01 


-0.4565E-01 
0 • 2572E-01 
-0 • 4298E--01 
0.2427E-O1 
-0.3971E-O1 
0.2222E-O1 
-O.3593E-01 
0 » i 96 1 E- 0 1 
-0.31B2E-01 
0 1 1647E-01 
-0 . 2755E-01 
0 * 1239E-01 
-0 ♦ 2337E-01 
0 . S988E-02 
-O.1934E.-0i 
0 , 43S8E-02 
-Or 1637E-01 
O.7462E-03 
-0.1418E-01 
-G.3273E-02 
-O . 1327E-01 
-O.7O07E-02 
-0.1395E-01 
-0 , 1030E-01 
-Q ■ 1647E-01 
-0.1303E-01 
-0.2103E-01 
-0.1508E-01 
-0. 2773E-01 
-0 * 164 IE-01 
~0 > 3660E-01 
-0.1701E-01 
-0.4753E-01 
-0.1690E-01 
-0 * 6028E-O1 
-0, 1613E-01 
-0.7449E-01 
-0.149BE-01 
-0.896BE-01 
“0* 1346E-01 
“0 » 1O52E400 
-O « II 80E-01 
~0, 1204E+0O 
~0 , 1020E-O1 
-O.134SE+0O 
-0 » 3855E-02 
“0 , 1466E400 
-0.7941E-02 
-0* 1560E4OQ 
-0.7612E-O2 
-0.1617E+00 
-0,79B7E-Q2 
-0 , 1632E40O 
-0.9150E-O2 


“0 , 1559E400 
0.3729E400 
-0.15A3E400 
0 . 3764 E-fOO 
-0* 1573E+0O 
0 » 381 3E400 
-0, 159QE40O 
0 . 3877E400 
-0, 1613E400 
0.3954E400 
“0 « 1642E400 
0.4042E4OO 
-0 . 1677E+00 
0 * 414OE+O0 
-0.1716E400 
0 » 4244E400 
-0.1759E400 
0.43S1E+00 
-0* 1805E4OQ 
0,44578400 
-0 . 1852E+00 
O'* 4556E40Q 
-O* 1898E4O0 
0 . 4644E+00 
-0 . 1942E400 
0.4716E+00 
-0 » 1 983E40Q 
0 * 4767E400 
-0 , 2021E4OO 
0, 4795E40Q 
-O . 2054E40O 
0,4795£40O 
-0 » 2O84E+00 
0, 4768E400 
-0 , 21 1 1E+0O 
O* 4714E400 
-0.213SE40C 
O.4636E+00 
-0»2i6.6E+00 
0.4S37E+00 
-0 ,2198E400 
0 . 4427E4G0 
"0 , 2233E400 
0 * 4313E4O0 
-0.2239E40O 
0.42OSE4O0 
-0..2355E+00 
0.4123E+00 
-0 , 2432E400 
0 , 4073E400 
-O . 2529E40O 
0.4071E+00 
-O.264OE40O 


“0 « i-^OlE-Oi 
0 * 3739 Et 00 
-0 ♦ S202E-C1 
0.3720E400 
-0.8244E-01 
0,3710£r00 
-0.833OE-01 
0 • 3711EiO0 
-0.8463E-01 
0.3724E+00 
-O , B643E-01 
0,37498x00 
-0,S36?E-01 
O ► 3788EtO0 
-0 « 9136E-01 
0 . 3840Ex00 
-0 , 9 439E-01 
0 i 39O6 EtO0 
-0.977OE-01 
O * 3?83EtO 0 
-0.1012E+00 
0, 4O69E40O 
-0 * 1O47E+00 
0 > 4164E40O 
-0 * 1032E+0O 
0* 4263ErOO 
-0 • 1116E+O0 
0 , 4365E40O 
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0 . 4465E40O 
-0 , 1174Ex00 
0.4561E40D 
-O*1189 EtO 0 
0 * 4650Ex0O 
-O, 1219E+00 
0,472?Et00 
-0.1233E+OG 
0.4798E+00 
-0. 1255EI00 
0 • 4855ErO0 
-0 , 1272EI00 
0,4903-400 
-0* 1292E400 
0 * 4943E400 
-0 , 1316E400 
0.4930E4G0 
-0,134SE400 
0* 301 9E40O 
“0 , 1389E400 
0,50681400 
-0 , 1442E400 
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0 . 260E+01 

-0.128SE+00 

-0 i 1599E+00 

0 . 4129E+00 

0 . 5135E400 

■ i 

' 1 
> J 


0.3MIE-01 

-0.1115E-01 

-0.27£9EtOO 

-0.1508E400 


0-265E+01 

-0.1239E+00 

-0 ■ 1514E400 

0.42olE400 

0. 5227E400 



0.3A77E-01 

-0 i 1399E-01 

-0.2911E+0G 

-0 * 1587Et00 


0.270E+01 

-0 . 1I74E+Q0 

-0.1374E+00 

0 . 4472E400 

0.5353E400 

w. 1 


0 ♦ 3316E-01 

-0. 1786E-01 

-0.3042E400 

-0 . 167BE400 


0 . 275E+01 

-0.1090E400 

-0. 11S3E+00 

0. 4769E+00 

0 . 5520E+00 

1 


0.2887E-01 

-0.2212E-01 

-0.3218E+00 

-0 . 1779E400 

J 

0.23QE+01 

-0 i 9907E-01 

-0 . 9439E-01 

0 . 5150E+00 

0.5735E+00 



0 » 2393E-01 

-0.2731E-01 

-0 ♦ 3373E+00 

-0.198SE400 

n 

0.285E+01 

-0.S737E-Q1 

-0 i 6650E-01 

0.561QE400 

0.5999E+00 

• 


0.1864E-01 

-0 .3317E-01 

-0.3521E+00 

-0.1999E+00 

« * 

0 * 29QE+ 01 

-0.7591E-01 

-0.3571E-01 

0.6136E+00 

0.6311E+00 



0.1301E-01 

-0.3966E-01 

-0 .3658E+00 

-0.2108E+00 

j 

0 . 295E401 

-0.6375E-01 

-0 » 3430E-02 

0.47UE+00 

0 1 6667E+00 

- 1 


0 . 7294E-02 

-0 . 4672E-01 

-0 . 3778E+00 

-0 . 2208E+00 


0 . 300E+01 

-0.5197E-01 

0.2S76E-01 

0.7312E+00 

0 . 705SEtOO 



0.1703E-02 

-0.543 IE-01 

“0 . 3S79E4 00 

-0 . 2294E+0G 

i! 

0.3Q5E+01 

-0.4122E-Q1 

0 . 5914E-01 

0.7913E + 00 . 

0 ♦ 7469E+00 



-0 .3533E-02 

-0.6242E-01 

-0.3940E+00 

-0.2360E+00 

i 

0.310E+01 

-0 * 3209E-01 . 

0 * 8605E-01 

0 » S48&E+00 

0.7386E+00 



-0.S177E-02 

-0.7102E-01 

-0. 4023E+00 

-0.2404E+00 


0.315E+01 

-0.2510E-G1 

0 . 1080E+00 

OtPOOAE+OO 
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* 


-0, 1200E-01 

-0 f 3007E-01 

-0 . 4073E+00 

-0 i 2424E400 

i 

i 

0.320E+01 

-0 • 2067E-01 

0 , 1238E+00 

0* 9451E+00 

0 . 8o59£+00 



-0 < 1473E-01 

-0 . 3949E-01 

-0.4116E+00 

-0 . 2420E+00 


0.325E+01 

-0.1904E-01 

0 . 1326E+00 

0 • 9307E+00 

0.B983E+00 



-0.1634E-01 

-0.9913E-01 

-0.4U1E+00 

-0,23?£E+00 

j 

0 , 330 Ef 01 

-0..2029E-01 

0 . 1343E+00 

0.1007E401 

0«?248Et00 



-0.1449E-01 

-0 1 10S7E400 

-0 . 4217E+O0 

-0 . 2359E+00 

—■j 

0 ♦ 335E+01 

-0.2430E-01 

0* 1292E+00 

0 . 1023E401 

0 1 9449E100 

J 


-0. 1510E-G1 

-0.1179E+00 

-0.4292E+00 

-0.2317E+00 

0 . 340E+01 

-0.3076E-01 

0 * 1 179E+00 

0 . 1032E+01 

0 . 9590E+00 



-0. 1209E-01 

-0. 1262E+00 

“0 . 4392E+00 

-0 . 2279E+00 

FT i 
[ 

0.345E+01 

-0.3922E-01 

0.1016E+00 

0 . 1035E401 

0.9631E+00 

u 


-0 .7388E-02 

-O. 1327E+00 

-0 * 4520E+00 

-0 . 2256E+00 


0 « 350E+01 • 

-0.4910E-01 

0.3160E-01 

0.1034E+01 

0 * 9737E400 



-0.9923E-03 

-0.136SE+00 

-0 * 4672E400 

-0 . 2256E4 00 

. i 

0.355E+01 

-0.5978E-01 

0.5918E-01 

0.1032E+01 

0. 9778E+00 

.... j 


0.7067E-02 

-0.1373E400 

-0.4840E+00 

-0 t22S4E+00 



0 i 360E+01 

-0. 7049E-01 

0 i 3562E-01 

0 . 103QE401 

0. 9826E+00 

! 


0 . 1671E-01 

“0. 1333E+00 

-0.5009E+00 

-0.2344E+00 

J 

0 *365Et01 

-0.8064E-01 

0. 1194E-01 

0.1028E+01 

0.9898E+00 



0.2780E-01 

-0.1237E+00 

-0.5160E400 

-0.2432E+00 

T] 

0 » 370E+01 

-0.8955E-01 

-0. 1102E-01 

0. 1028E401 

0. 1000E401 

_i 


O.4O15E-01 

-0 i 1077E+00 

-0.5268E+00 

-0 . 2542E+00 


0 • 375E+01 

-0.9686E-01 

-0.3261E-01 

0 . 1026E+01 

0. 1014E+01 



0.5351E-01 

-0.8458E-01 

-0.5307E+00 

-0.2659E+00 

j 

0.380E401 

. -0. 1015E+00 

-0.5225E-01 

0.1021E401 

0* 1030E401 



0.6759E-01 

-0.5400E-01 

-0. 52516+00 

-0. 2767E+00 


0.3S5E+01 

-0. 1036E+00 

-0.6931E-01 

0 . 1010E401 

0. 1045E+01 



0.8201E-01 

-0. 1607E-01 

-0.5078E+00 

-0.2844E400 


0.390E+01 

-0.-1029E+00 

-0.8291E-01 

0.9889E+00 

0. 1055E+01 



0.9S38E-01 

0.2964E-01 

-0.4769E+00 

-0 * 2865E+00 
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0 , 395E+Q1 

-0.991SE-01 

-0.9189E-01 

0 • 9555E+00 

0 . 1056E+01 


O.U02E+00 
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-0 . 9472E-01 
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0. 5904E+00 


0 . 1577E+C0 
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0. 1S15E-01 

0.1U8E-01 

0 , 43QE+01 

-0.2511E-01 

0 . 8565E-01 

0 . 6O46E+O0 

0 . 4230E+00 


0 . 1571E+00 

0.4077E+00 

0 . 71 9GE-01 

0.9374E-01 

0 . 435E+G1 

-0. 1912E-01 

0 . 1352E+00 

0 . 6335E+00 

0 . 2599E+00 


0 , 1 539E+00 

0. 4277E+00 

0. 1019E+00 

0 . 1737E+00 

0 . 440E+01 

-0 i 1726E-01 

0 . 1725E+00 

0 * 7178E+00 

0.101SE+00 


0.1483E+00 

0 . 4403E+00 

0 . 1053E+00 

0.2432E+00 

0 . 445E+01 

-0.1924E-01 

0 . 1857E+00 

0.8364E+00 

-0 . 2848E-01 


0. 1404E+00 

0 * 4497E+00 

0 , S366E-01 

0.2941E+00 

0.450E+01 

-0 • 2350E-01 

0 . 1642E+00 

0 . 9758E+00 

-0. 1 139E+00 


0 » 1302E+00 

0 1 456; E+ ’,'0 

0.4394E-01 

0.3202E+00 

0 . 455E+01 

-0* 2713E-01 

0 • 1032Et0v 

0. 1105E+01 

-0 . 1421E+00 


0* 117SE+00 

0 .462334-00 

-0 , 2266E-02 

G .3183E+QG 

0 » 4 60E+01 

-0. 2653E-01 

C.8S51E-02 

0. 1162E+01 

-0 . 1093E+00 


0 . 1034E+OO 

0.4644E+00 

-0 . 4133E-01 

0.2901E+00 

0.465E+01 

-0.12983-01 

-0 . 9695E-01 

0.1167E+01 

-0 . 2325E-01 

* 

0 ( 3S25E-Q1 

0 . 4576E+00 

-0.6189E-01 

0.2421E+00 

0 . 470E+01 

-0.5313E-02 

-0.1754E+00 

0 . 1030E+01 

0.97T3F-01 


0.75C5E-01 

0 . 4349E+00 

-0.5966E-01 

0.1844E+00 

0 « 475E+01 

0 * 6521E-02 

-0 . 1759E+00 

0 . 7696E+00 

0 . 2257E+00 


0 . 6818E-01 

0.3925E+00 

-0.4042E-01 

0 . 1279E+00 

0 i 4S0E+01 

-0 . 1852E-02 

-0 . 4922E-01 

0.4183E+00 

0. 3345E+00 


0 ♦ 7302E-01 

0.3352E+00 

-0 . 1S60E-01 

0.8U2E-01 

0 > 485E+01 

.-0 1 60A7E-01 

0.2322E+00 

0 . 4221E-01 

0 . 4039E+00 


0 . 9335E-01 

C.2S30E+00 

-0.1002E-01 

0 . 4707E-01 

0 . 490E+01 

-0.2097E+Q0 

0 . 6534E+0Q 

"0.2761E+00 

0 . 4279E+00 


0 . 1266E+00 

0. 2704E+0G 

-0.2016E-01 

0.2387E-01 

0 1 495Ei*0i 

-0 . 491 OE-i'OO 

0. 1 144E+01 

-0 . 4666E+00 

0 .4151E+00 


0 . 1 S67E4-00 

0.3381E+00 

-0.32 96 E-01 

0.7890E-02 

0. 5Q0E+01 

-0 . 9371E+00 

Q.1533E+01 

-0 . 1212E+00 

0 i 1270E+00 


0. 1462E+00 

0 . 51 1 OE-rOO 

-0.7517E-02 
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Table 5.12 Optimal third Order Feedback Tensors for Example 3 




Figure 5.9 yihe Linear Feedback Region of Usefulness for Example 3, 
/The hash marks show divisions of 1.0 units. There is 
0.1 spacing between points. The aateriks represent the 
acceptable initial conditions. 
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Figure 5.11 The Third Order Region of Usefulness for Example 3. 

The dimensions are the same as those in Figure 5.9. 




CHAPTER VI 


CONCLUSIONS 

This thesis explains research on nonlinear optimal control performed over 
the last two years. The main accomplishment of this research is a software 
package which finds the solution to the nonlinear optimal control problem when 
the plant cost functional admits a polynomial expansion. 

There are several concepts which must be understood before the methods 
the software uses can be fully appreciated. First, an understanding of tensor 
algebra is necessary. The second and third chapters of this thesis discuss 
some topics in tensor algebra. Some of the tensor functions which are de- 
veloped are very problem specific. The permutation of eovarlant powers, the 
raising and lowering of covariant and contravariant powers, and the transpo- 
sition operation all aid greatly in the manipulation of tensors in complicated 
expressions. Such functions are generally not found in the literature In the 
form in which they appear here. Greub [11,12] talks about permutation oper- 
ators on tensor spaces Tp(V), but not on spaces Tp^qCUjV). Similarly, Greub 
refers to dual tensors in Tp(V) for tensors in TP(V), but not duals of tensors 
in TP»<KU,V). This notion of dual tensors is generalized here to encompass 
the raising and lowering of powers. Also, transposition is just the simul- 
taneous lowering of one contravariant power and raising of one covariant 
power. 

Other tensor functions used here are more standard in the literature. 

The tensor product, tensor contraction, and tensor symmetrization are all dis- 
cussed by Greub. Two more basic tensor functions which are necessary to de- 
fine tensor algebra as an algebra are scalar multiplication of a tensor and 
tensor addition. There are subroutines to accomplish these functions, but 
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they are so basic they were not discussed In Chapter III. The tensor product 
Is also a basic function, but Its action Is more complicated than scalar 
multiplication and tensor addition. Indeed, with 

“1 0 

T(V) “ l T (V), where the sum Is direct and T (V) =* R, 

i-0,j-0 i 0 

T(V) is a graded algebra with the tensor product used to combine elements of 

T(V) to get other elements of T(V), and with both scalar multiplication and 

the tensor product distributing over addition. 

Tensor contraction was generalized here from the description in Greub. 
Greub describes a contraction operator which acts on only one contravariant 
and one covariant power at a time. The contraction here operates on an arbi- 
trary number of powers at a time from arbitrary spaces. 

The symmetrization here was developed similar to that in Greub. The main 
difference here is in the ability to symmetrize an arbitrary number of co- 
variant or contravariant powers and leave some powers unsymmetrized. The 
software was developed with this generality. 

The tensor functions just described all followed Buric [1] in both nota- 
tion and the functions with one exception. The contravariant symmetrization 
is defined in a different manner than the covariant symmetrization in this 
thesis. This is done to ansure that the contractions performed in the sym- 
metric space yield the same results as in the normal tensor space. 

The next concept which must be understood is nonlinear optimal control 
theory. This was discussed briefly at the beginning of Chapter IV. Classic 
nonlinear control theory derives conditions which the optimal cost functional, 
V(x,t), and the optimal feedback control, u*(x,t), must solve. These condl- 
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tions are that the Hamilton-Jacobi-Bellman (HJB) equation and the partial de- 
rivative of the HJB equation with respect to the control u(t) must vanish. 

When the system 

X “ f(x,u,t) 

and the cost functional 

tl 

J ** M(x(ti>) + / L(x,u,t)dt 
*•0 

admit a polynomial expansion, then tensor algebra is a natural setting in 
which to imbed the problem. Furthermore, if the linear. truncation of f is 
stabilizable, M and L begin with quadratic powers of x and u, f(0,0,t) = 0, 
and the set of admissible controllers is 

1 m [m] 

SI = (u(x , t ) | u(x , t ) = I K (t) ® x } 

then Buric showed that the above conditions were sufficient as well and that 

' k 

V(x,t) = l V[ k ] o xt k J. 
k=2 

/ 

1 

The V[le] and K solve the explicit equations derived in Chapter IV. 

[m] 

After these concepts are assimilated, the software can be dissected in a 
straightforward manner. The appendix describes the software and shows how the 
different subroutines interrelate. It should be noted that TLIB, the tensor 
subroutine library contains all of the function subroutines. These sub- 
routines are used primarily by TNSCLC and XCALC. TNSCLC calculates the feed- 
back tensors given the system tensors and the parameter file PARAM. XCALC 
usea these feedback tensors to calculate the state trajectories, given the 
system and PARAM. PARAM is the set of parameters, generated by the program 
PARGEN, which describe the sizes of various tensors and the time variables for 
the problem. 
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The program STAB calls the subroutine XCALC many times in an exhaustive 
search of the space of possible initial conditions in order to determine the 
set of initial conditions which are acceptable. These "regions of usefulness” 
are shown in Chapter V for two of the example problems. 

Chapter V contains three examples. These examples show four main re- 
sults. First of all the Lukes example verifies the software in the sense that 
the program calculated the same feedback tensors for linear and quadratic 
feedback as Lukes calculated. Second, since the problems were of different 
sizes they served as a demonstration of the flexibility of the software. 

Third, the second and third examples showed that the third order feedback had 
a larger region of usefulness than linear or quadratic feedback. Finally, the 
third example showed for one case the compatibility of this technique with an 
identified model. 

There are several promising areas here for future research. Fir3t, now 
that there is a general package set up for calculating nonlinear feedback 
tensors, a search for more examples to demonstrate the usefulness of the 
higher order feedback terms should be carried out. The flexibility of the 
program is ideal for changing problems or constraints in a relatively short 
period of time. This search should include changing the cost functional to be 
minimized in order to achieve design goals. Once more examples have been 
found, software for calculating fourth and fifth order feedback tensors should 
be implemented. After those feedback tensors can be calculated another search 
for examples should be carried out to demonstrate the usefulness of those 
terras . 

Another area for which this thesis is a preliminary study is the mixing 
of identified models with the calculations of feedback tensors. It must be 
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determined whether a model which was chosen to outperform models of like de- 
gree can he used in an algorithm based upon using the Taylor series truncation 
of the actual system. This can be viewed as a robustness problem — can non- 
linear feedback perform satisfactorily in the face of modeling errors. This 
is an area which must be studied before the feedback can be used in practice. 

Another area for potential research is the scheduling of nonlinear con- 
trols. The problem envisioned is that of controlling a system which has a 
series of nonlinear models scheduled over an operating line. Each of these 
models is only locally valid. A nonlinear controller for each of these models 
would be calculated. Then, when transitioning from the region where one model 
is valid to the region where the next model is valid, the controller would be 
changed smoothly. This problem involves checking that the regions of useful- 
ness overlap sufficiently from one model to the next to ensure stability. 

Other questions such as how nonlinear scheduling should be viewed theo- 

« 

retically also must be entertained. Applications for this research would in- 
clude flight controls. In particular, solving both the question of com- 
patibility with models and the problem of scheduling would give the ability to 
use simulations such as HYTESS [13] to design controllers for actual flight 
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APPENDIX A 


This appendix contains the software described in the preceding chapters 
of this thesis. This software is written in FORTRAN IV-plus on a PDP-11/44. 


A flow chart for a representative problem is shown in Figure A. 1. The 
user of the software must calculate the system tensors and the cost functional 
tensors. These tensors are input into TNSCLC. The program PARGEN is run 
first. This program accepts as input the number of states, the number of con- 
trols, the initial time, the final time, the integration stepsize, and the 
number of integration steps between stored values of the controller tensors in 
TNSCLC. PARGEN creates the file PARAM, which contains the set of parameters 
used by TNSCLC and XCALC to dimension all of the tensors, to perform functions 
on the tensors, to calculate the feedback tensors over time, to store and re- 
trieve these tensors, and to calculate the state trajectories over time. 


TNSGLfc is run next. TNSCLC uses the input system and cost functional 

, 1 1 1 
tensors end PARAM, to calculate V[ 2 ], V.[ 3 j # V[ 4 j, K , K , and K from the 

1 [2] [3] 

equations derived in Chapter IV. The values for each of these tensors is 
stored over time in data files. TNSCLC uses the subroutines in TLXB, the 
library of tensor subroutines, to perform the necessary calculations. The 
list of these subroutines is shown in Figure A. 2. 


After TNSCLC is run, XCALC may be run to view the behavior of the system 
with the feedback. XCALC uses PARAM and the actual system equations to inte- 
grate the states when the controller tensors are used. This program may be 
run with as many different sets of initial conditions as desired. If the be- 
havior of the system is acceptable the program STAB may be run. 
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RUNGE 


SMULT 


TCONT 

TMULT 

TCONTl 

TADD 

TRANS 

DPROD 

PERM 

DELTA 

RAISE 



Figure A. 2. The List of Subroutines in TLIB. 

TLIB is used by TNSCLC and XCALC to perform all of the 
tensor functions and integrations. 


130 


STAB calculates the regions of usefulness discussed in Chapter V, by re- 
peatedly calling XCALC with different initial conditions. The program STAB 
outputs the regions shown in Chapter V. Printouts of each of the subroutines 
in TLIB and each, of the programs discussed above are contained in the Appen- 


dix. 


ctttttttttttuttttttttttttt m uuttt uuttt utuuututttt tut ttttt tutu 
cuttttutttuttttttutuuutuuttututtuttttttuuttttttuttuuutttt 

C*****************3Mt****t.S:t#^:)i:****#*35t»«**<c#tf:*#**<:3{(f**«:3Sc*S<t4c<(<(*36c6<:S(*€}jt#«<:#)t: 

cut ut 

cut title: pargen ttt 

cut AUTHOR: JOSEPH A. O'SULLIVAN Ut 

cut ttt 

CUt THIS PROGRAM GENERATES THE PARAMETERS USE)) IN CALCULA- *** 

C*** TING THE NONLINEAR FEEDBACK TENSOR COEFFICIENTS IN THE SOLUTION *** 

CUt TO THE NONLINEAR OPTIMAL CONTROL PROBLEM, THESE PARAMETERS ARE ttt 

cut USED TO DETERMINE THE DIMENSIONS OF THE DIFFERENT TENSORS IN ttt 

C ttt BOTH SYMMETRIC AND UHSYNMETSIC FORMS, THIS PROGRAM ALSO FEEDS ttt 

CUt INFORMATION ABOUT THE NUMBER OF INTEGRATION STEPS AND THE NUMBER*** 

CUt OF STORED VALUES TO THE MAIN PROGRAM. PROGRAMS WHICH USE THE Ut 

cut RESULTS OF THIS PRGRAM DO SO BY HAVING THE FIRST LINE OF THEIR *** 

C*** CODE BE ttt 

cm INCLUDE 'PARAK1.FTN' . *« 

C*** AFTER THIS LINE? THE PARAMETERS CAM BE USED AS IF THEY WERE THE *** 

Cm NUHBERS THEMSELVES. THIS IS HOST USf.FUL IN PROGRAMS WHICH ONE *** 

C*** WISHES TO USE DIFFERENT TIMES WITH DIFFERENT SIZE TENSORS. *** 

Cm ALL ONE HAS TO DO IS RUN THIS PROGRAM THEN RECOMPILE THE ORX6X- *** 

Cm HAL PROGRAM, THUS IF OHE CONSISTENTLY USES THE PARAMETERS IN *** 

C*** THE ORIGINAL PROGRAM INSTEAD OF THEIR NUMERIC VALUES? THEN THE m 

C*** PROGRAM WILL HOT HAVE TO BE CHANGED LIME BY LIME. SO? WHILE *** 

C*T* THE TIME NECESSARY TO RECOMPILE THE PROGRAM WILL HAVE TO BE *** 

cm SPENT? THE ARDUOUS TASK OF COMPLETELY REPROGRAMMING A WORKING *** 

C*** PROGRAM WILL NOT BE REQUIRED. **<: 

cut V m 

Cm IMPORTANT VARIABLES: *** 

cm XDINXJ THE DIMENSION OF THE INDEPENDENT VARIABLE *** 

Cm IDIMUJ THE DIMENSION OF THE CONIROI. VARIABLE *** 

C*** 12? IS? 14? IS? 16? » » » » IDIHX RAISED TO THE APPROPRIATE Ut 

C**t POWER ttt 

CUt I11?I20?I12»I21?IS0?I13?I22?I3I.?I40? , » , t IDIHU RAISED Ut 

CUt TO THE POWER OF THE FIRST DIGIT TIMES 1BXKX *** 

C*** RAISED TO THE POWER OF THE SECOND DIGIT 

C*** IS2? I83r IS4? ♦ • » ? IS20?IS12? IS21 ?IS30r 1 S13r < . ( « THE *** 

CUt DIMENSION OF A TENSOR WHICH IS THE SYMMETRIC ttt 

CUt VERSION OF A TFNSOR WHOSE DIMENSION IS THE SAKE *** 

C*** AS THIS PARAMETER WITHOUT THE 'S' 

cm E.G.? ttt 

cut I4~IDIMX**4 *** 

cm n3^arpiMu«i)*{iDiMxm) m 

CUt IS32*IS30*I32==< IDIHU F2) *( IDIHUH ) *IDIMU*< IDIMX+l ) *** 

C*** IIDIMX/12 *** 

C*** IS 32 IS THE DIMENSION OF THE SYMMETRIZED VERSION OF 132 *** 

c**t m 

C*** TO! THE STARTING TINE FOR THE INTEORATIION *** 

CUt Tit THE FINAL TIME FOR THE INTEGRATION *:** 

CUt DTI THE INTEGRATION 8TEP8IZE Ut 

Cttt IIT! THE TOTAL NUMBER OF INTEGRATION STEPS ttt 

CUt JUJ THE NUMBER OF STEPS BETWEEN STUREO VALUES *** 

C*** HIT! THE NUMBER OF SECONDARY INTEGRATION STEPS *** 

cut iu s: i 2 nt 


ORIGINAL PAGE IS 

Op POOR QUALITY 132 


cm 


IQ1DW11 

tu- 

cm 


IR-I20 

rn 

cm 


151 12~ JDIHXt!BIMUtIS2: THE DIMENSION OF A SYMMETRIC 

ttt 

cm 


TENSOR WHICH HAS OHE OONTRAVARIANT POWER OF 

u$ 

cm 


THE DEPENDENT VARIABLE OHE COVARIANT POWER OF 

ttt 

cm 


THE CONTROL VARIABLE? AND TWO COVARIANT POWERS 

ttt 

cm 


OF THE INDEPENDENT VARIABLE 

ttt 

cm 


IS102«J!BIHXtI§2 

ttt i 

cut 



ttt. 

cm 

input: 


ttt j 

cut 


IDIHX? IDIMU? TOr 11. DT t Jit ARE ACCEPTED AS INPUT 

ttt 

cut 


VARIABLES BY THIS PROGRAM, FROM THEM ALL OTHER VARI- 

ttt i 

cut 


ABLES CALCULATED, 

ttt > 

cut 



ttt 

cut 

ouput: 


ttt I 

ctu 


THE OUTPUT IS INTO 'PARAHt ,FTN' ? A FILE WHICH CONSISTS 

ttt 

cut 


OF OHE PARAMETER STATEMENT WHICH IS ABOUT FIFTEEN LINES 

ttt 

cut 


LONG, THUS IF OHE USES THIS FILE VIA AH INCLUDE STATE- 

ttt 

cut 


MENT? ONE MUST USE THE '/CO MS' SWITCH WHEN THE PROGRAM 

ttt 

cut 


IS COMPILED, E.G.t SAY THE FIRST LINE OF 'HAXN.FTN' IS 

ttt 

ctu 



ttt 

cut 


INCLUDE 'PARAH1 ,FTN' 

ttt 

cttt 



ttt | 

cut 


THEN THE COMPILATION LINE MUST BE 

ttt 1 

ctu 



ttt 1 

cut 


>FOR MAIN?MAIH*-MAIN/CO J 15 

ttt | 

ctu 



ttt 

cut 


OR ELSE THE PROGRAM WILL. HOT COMPILE. 

ttt 

cut 

*T 


ttt 


cuuuntuuuutuunnnnttnnnttuututuututtuutuutuutn 
cmmttmtttmtttttmttttmttttttmtmttmmmttttmtsmtttttt 
CUtUUUUUtttttUttUUtUUtUttUtUUUttUUUtUUttttUtUUUUt 
TYPE 1 

1 FORMAT ( ' ENTER THE DIMENSION OF THE X VARIABLE/) 

ACCEPT t? I0INX 
TYPE 20 

20 FORMAT ( ' ENTER THE DIMENSION OF THE U VARIABLE' ) 

ACCEPT t? IDIMU 

IQ=IDIMXtt2 

I2*IQ 

IQlDl :: IDIHXtIDIMU 

I11-IGJID1 

IR=IDINUtt2 

I20-IR 

13- IDIMXft3 
I12«IDlHUtI5IHX*t2 
1 2 l : *ID I HX t IDI HUt t2 
I30=IDINtJtt3 

14- IBIMXW 
IlJ--IDIHUtIDINXtt3 
I22=IDIMU*»2»IDIHX**2 
I3l==I0tMX*I0IHUW3 
I40»IDIMU*t4 

CSt* 

Ctt* THE SYMMETRIC PARAMETERS ARE CALCULATED USING COKINATflRIAL THEORY, 
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cm FOR EXAMPLE » If ONE HAS TWO DIGITS, EACH OF WHICH CAN RANGE FROM 
C*U ZERO TO IDIHX, AND THE ORDER OF THE DIGITS DOESN'T MATTER, THEN 

Cm THE NUMBER OF POSSIBLE PAIRS OF DIGITS IS 

cm IS2~( JDIHX+l XIBIMX/2. 

cm 

IS2* : ( IDIMX+1 )*IDIKX/2 
IS102-I0IMX&IS2 

IS3=(IDINXT2)*( IBIHX+1 XIDJHX/6 
IStl*-I01Dl 

IS20-< IDIHU+1 )*IDI MlJ/2 

IS30-( I 0IHUF2>*( IDlNU+l >tlDINU/A 

IS12=IDIHU*IS2 

IS2t-IDIHX*IS20 

IS4=<IDIMX+3)*IBIHXt<IDIHX+2)t(ID]HX-M>/24 

IS13“IDINU*I83 

IS22=IS2*IS20 

IS3! -IS30*IDTMX 

IS40=( IDIHU+3) t< IDIHU+2>*( IDIHU+J XIDINU/24 

I5»1DIKXUS 

I14-IDINUBI4 

I23-IR&I3 

132-130*12 

IH--IDIHX*I40 

I50=I40*IBIHU 

IS3=IS4*(I0IHXf4>/5 

IS14-IDIMU*IS4 

1523- IS20*IS3 
IS32=IS30*IS2 
IS41 tIS40*IDINX 
I550= , IS40*(IDIMU+4>/5 
U-IDINXm 
nS-iDIHUtI5 
I24»IR*I4 
133=130*13 
142-140*10 
IS1=I50*IDIMX 
Z60*IDIHUt** 

IS6=IS5*< IDIHX+D)/6 
ISl5”tS5*IDIHU 

1524- IS20*IS4 
IS33=IS;50JIS3 
IS42=IS40*IS2 
IS31*ISS0*IDIHX 
IS60-JS50*(IDINU+5>/6 

cm 

C*** AFTER CALCULATING ALL OF THE DESIRED PARAMETERS WHICH DEPEND ONLY 

C*** UPON IDINX AND IDIHU, THE OUTPUT FILE IS SET OP AND THEN THE INFOR- 

C*** NATION ABOUT THE INTEGRATION STEPS IS OBTAINED. 

cm 

OPEN (UNIT” I r TYPE”' NEW ' , NAME” ' PAR AH1 . FT \i ' ) 

TYPE *>' ENTER T0,T1,DT,' 

ACCEPT *»T0»T1»DT 

!1T* If IXC<Tl-T0)/DT+0. 0001)41' 

TYPE *,' ENTER THE NUMBER OF STEPS BETWEEN STORED VALUES.' 

ACCEPT *,JU 
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cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 


s 

t 

8 

t 


cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

10 


i 

s 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 


THE NEXT VARIABLE OALCCUIATED, IIIT, IS USED AS THE NUMBER OK 
INTEORATION STEPS IN THE SECONDARY INTEGRATION, TO BE USED, THE 
MAIN PROGRAM SHOULD ONLY SAVE EVERY Jll VALUES FROM THE PRIMARY 
INTEGRATION, HIT VALUES HILL THEN HAVE BEEN SAVED (ASSUMING 
THAT THE FIRST AND LAST VALUES HAVE BEEH SAVED), THUS IF THE 
FIRST INTEGRATION IS DONE BACKWARDS IN TINE USING IIT INTEGRATION 
STEFS AND SAVING EVERY Jll VALUES OF THE DESIRED TENSORS, THEN 
BY INTEGRATING FORWARD IN TIME AND USING HIT INTEGRATION STEPS, 
UITH A STEPSIZE OF (T1-T0)/I).IT, ONE WILL GET BACK TO Ti AND USE 
ALL OF THE SAVED TENSOR VALUES, 


IIIT*IFIX(FLOAT< IIT-1 )/FL0AT< Jll )I0,0001)+1 
WRITE! 1,10) IQ, 12, IQl 01, 111, IR» 120 ,13,112,121 i ISO, Mr I 13, 122, 
131, 140, 15, 114, 123, 132, HI, ISO, 16,113,124, 133, 142,131 ,IdO,IS2, 
IS11, IS20, IS3, IS12., IS21 , I330»IS4» 1813, IS22, 1331 » 1840, t35» IS14, 
IS23, IS32, IS41 »IS50, ISA, ISIS, 1824,1533, 1842, 1851 , I860, ISJ02»I T T» 
IDIHX, IDIHU,TO,Tt ,BT,I IIT, Jll 
CLOSE (UNIT=1 ) 

STOP 


THE FOLLOWING IS THE FORMAT STATEMENT WHICH ENSURES THAT THE 
PARAMETERS ARE STORED IN 'PARAH1.FTN' IN ONE PROPER PARAMETER 
STATEMENT, EVERY HEW LINE MUST HAVE A CHARACTER IN THE SIXTH 
COLUMN TO BE A CONTINUATION OF THE LINE PRECEDING If, IT SHOULD 
BE NOTED THAI IF THE DIMENSIONS GET TO BE SO LARGE THAT JpiKX 
RAISED TO THE POWER OF SIX IS MORE THAN FIVE DIGITS LONG, AN 
OUTPUT ERROR WILL OCCUR, ALSO, IF THE PARAMETERS GET TO BE TOO 
LARGE, THEN THE TENSORS WHICH USE THESE PARAMETERS FOR THEIR 
DIMENSIONS HAY GET TOO LARGE TO BE USEFUL, 


F0RMAT(6X» 'PARAMETER IQ-' ,14, ' » X2« ' ,14, 30i))l» ' ,14, ' , III-' , 14/ 
SXi'Z ,IR"',X4,'7l20K / ,I4,',I3w',X4,',Ii2~'»X4, ',121-' ,14, ', '/ 
r,X,'| 130=' r 15, ' ,14=' ,15, ' » 113=' , 15, ' , 122- IS, ' , 131=' ,15, ' » '/ 
5X,'2 I40**>X5>'rl5*VI3?'fI14«'>X$j'rI23*'fX3»*rI32*'tt5j / »'/ 
SXf'g 141-', 15, ',150=', 15, '»I6=',I5,'»115- 15, ',124=', 15, 

SX,'?. 133=' » 15, ' , 142=' , 15 , ' 1 131=' , 15/ ' »IAO=', IS, ' , IS2=' » 15, ' , '/ 
5X,'8 IS11-',I5»', IS?0=' ,15, ' , IS3”' ,15, ',1812=' ,15, ' ,IS21"' ,15/ 
3X, ' ?< , IS30=' / 15; ',184=' ,15/ ' ,1313-=', 15, ' ,1322"' ,15, ' , IS3l-',I5, 
' » '/5X, ' 8 IS40-' » J5, ' »IS5=' ,15, ',1514=' » 15, ' ,1823=', 15, 'r '/ 

5X,'Z 1332=' , 15, ' ,IS41"' ,15, ' , IS50=' ,15, ' »ISA=' , 15, ' ,1815=' / 15,/ 
5X,'» ,1524=' , 15, ' ,1S33 ; -' ,15, ' » IS42=' ,15, ' ,1851*' ,15, ' , '/ 

5X, '3 IS60"' r 15, ' , 13102=' ,15, ' , II T=' ,15, ' , IOINX=' , 15 , ' , ' 

/5X,'8 IDIMU=',I5,',T0=',F13.6,',T1^',F13.6,',DT-',F13«4, 

/5X,'3 1 1 1 1 T = ' , 1 5 , ' , J 1 1 •> ',15) 

END 
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cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
c nt 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 


title: 

AUTHOR? 


TNSCLC 

JOSEPH 


A, 0' SULI.IVAN 


SUBROUTINE TNBCLC CALCULATES THE OPTIMAL FEEDBACK 

TENSORS. 

THIS SUBROUTINE USES THE FILE / PARANl>FrN' WHICH IS 
GENERATED BY 'DKZIPARGEH.TSK' . THIS FILE CONTAINS ALL OF THE 
PARAMETERS USED FOR DIMENSIONS AND FOR THE INTEGRATIONS. 

THIS SUBROUTINE ALSO USES THE SUBROUTINES IN 'TUB' THE LIBRARY 
OF TENSOR FUNCTIONS, 

IMPORTANT VARIABLES? 

Ar Br A20? All? A02» A30» A21> A12r A03» « < « * THE 

COEFFICIENTS Of THE POWERS OF THE CONTROL AND 
STATE VARIABLES IN THE DIFFERENTIAL EQUATION 
DESCRIBING THE SYSTEM. IF DX IS THE DERIVATIVE 
OF THE STATE VARIABLE r AND X IS THE STATE VARI- 
ABLE ? U THE CONTROL VARIABLE. AND X2? U2? X3? 


ttt 

ttt 

nt 

nt 

nt 

nt 

ttt 

mi- 

nt 

nt 

nt 

nt 

nt 

tit 

nt 

nt 

nt 

mt 

nt 


c nt 

cttt 

cm 

cm 

cm 

cm 

cttt 

cttt 

cttt 

cm 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

r a 

u+c* 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 


U3r ARE THE TENSOR PRODUCTS OF U AND X WITH ttt 
THEMSELVES* THEN ttt 

nt 

2 2 2 3 3 ttt 

DX s AtX+BRU+A2O0U2FA118UtXFAO28X2+A3<*WU3+A21EU2t>',I» , , ttt 

nt 

WHERE ' t ' STANDS FOR THE TENSOR PRODUCT » AND ttt 
'G' STANDS FOR THE CONTRACTION OPERATOR. ttt 

Qr Rr 030 » R21 » (U2r 003 1 (MO. 031? «, < i COEFFICIENTS ttt 

OF THE POWERS OF THE CONTROL AND STATE VAKi - ttt 

ADLES IN THE INTEGRAL CROATIAN FOR THE COST ttt 
WHICH MUST BE MINIMIZED. ttt 

V? V3i * . « 1 COEFFICIENTS FOR THE OPTIMAL COST FOR ttt 
THE PROBLEM. ttt 

K? K2» K3?«,,t OPTIMAL FEEDBACK COEFFICIENTS ttt 

K2S? K3S? . » . ? SYMMETRIC VERSIONS OF K2» K3?,.. ttt 

GSf RS? Q30S? Q21St...: SYMMETRIC VERSIONS OF R» Rr.«, ttt 

A20S» A028? A30S? A21S?,,,? SYMMETRIC VERSIONS OF A20? ttt 
M2t A30? < . . ttt 

DVf DV3? DV4? DVSr DV3S? BV48? » . . ? DERIVATIVES AND THE ttt 
SYMMETRIC VERSIONS OF THF DERIVATIVES OF Mr V3r ttt 
V4/,». ttt 

XCIP.Xj IBIMUj 12 r 111 r 120* 13? 12!?...! DIMENSIONS ttt 
OF THE CONTROL AND STATE VECTORS AND HIGHER ttt 

ORDER TENSOR PRODUCTS OF THOSE VARIABLES. ttt 

E.G.r I32~IDI‘1Utt3$IBXNXtt2 . ttt 

IS2» IS20? lS3r IS21i...t DIMENSION OF SYMMETRIC ttt 

TENSORS WHOSE UNSYHMETRIC DIMENSIONS ARE 12? ttt 

120? 13?... ttt 

IIT? THE NUMBER OF INTEGRATION STEPS ttt 

DTJ INTEGRATION BTEPSIZF. ttt 

DDT? -DT, THE INTEGRATION STFjPSIZE USED BECAUSE THF. ttt 


Cm INTEGRATION IS DONE IN NEGATIVE TIME ttt 

cm TO»Tli INITIAL AND FINAL TIMES FOR THE INTEGRATION ttt 

cm J 1 i S NUMBER OF INTEGRATION STEPS BETWEEN STORED VALUES ttt 

Cm OF V'2SiKJrl’3&rK28f m 

Cm HIT! NUMBER OF STORED VALUES OF V2S, KH V3Si , , , m 

cm ttt 

Cttt THERE ARE FIVE MAIN SECTIONS TO THIS PROORAN! M 

Cttt 1, THIS SECTION CONTAINS THE PARAMETERS. THE DIMENSION ttt 

Cttt STATEMENTS; AND THE DATA STATEMENTS , THESE »** 

C*** DATA STATEMENTS LOAD IN THE VALUES OF THE SYS- ttt 

Cttt TEH AND COST FUNCTIONAL TENSORS. *** 

Cttt 2. THIS SECTION CALCULATES THE FINAL VALUES OF THE m 

C*« CONTROLLER TENSORS AND THE OPTIMAL VALUE ttt 

CUt TENSORS, THE STATEMENTS WHICH SETUP THE DATA ft* 

C*M FILES FOR STORING THE CALCULATED TENSORS ARE ttt 

Cm ALSO IN THIS SECTION. SEVERAL TENSORS WHOSE ttt 

Cttt VALUES REMAIN CONSTANT FOR THE DURATION OF THE ttt 

Cttt CALCULATIONS ARE COMPUTED IN THIS SECTION, ttt 

Cttt 3. THE CALCULATIONS OF V23 AND XI ARE IN THIS SECTION. ttt 

C#** THE RICtATI EQUATION IS INTEGRATED HERE USING ttt 

Cttt SEVERAL TENSORS WHICH WERE CALCULATED IN SEC- ttt 

Cttt TIDH 2. THE RICCATI EQUATION IS DISCUSSED IN ttt 

Cttt THE CONHENTS IN SECTION 2. ttt 

Cttt 4. THE CALCULATIONS OF V3S AND K2S ARE IN THIS SECTION, ttt 

Cttt THE LINEAR DIFFERENTIAL EQUATION IS INTEORATEO tU 

Cttt FOR V3S AND K2S IS FOUND AS AN AFFINE FUNCTION ttt 

Cttt OF V3S. nt 

cttt 5. V4S AND K38 ARE CALCULATED IN THIS SECTION, THESE ttt 

Cttt „ CALCULATIONS MIRROR THOSE FOR V3S AND K2S. ttt 

Cttt tn 

cmtmtttttttmmtttttmttmtmtmmttmmtmmmtmmtmt 

ctmtttttttmtmmmmmtttttmttmttttmtmmmmtmttmtt 

ctmmtttttmmtmtmmmttmtmmmmmmtmmmtmmt 

SUBROUTINE TKSCLC 
INCLUDE 'PARAH1.FTN' 

DIMENSION VdQ) rA(Ift) rB( IftlDl ) rR(lR)fRINVdR) rRUP(IRlDl) 

DIMENSION QR(IQ) 7 R IQ (IQ 1D1) 7 BRIO (IQ) ^DRIdOlDl ) ?QID1 ( IQ1D1 ) 
DIMENSION Q< JQ) »BT<IG1D1 ) fBRB(IQ) ,RUPT (IQiDi) » QRCMI2) 

DIMENSION QCONS ( IQ.) > AV (IQ ) j VAV A dO > * VAV2 (1 0 ) / VBRB (I U ) r VBVdQ ) 

D INENSI ON VAV3 dD ) » VAV4 < 10 > t DV U ft ) » BTV < II 1 > i AVT dft ) 

DIMENSION DVS ( 182 ) 7 VS ( I 82 ) 7 08 ( IS2 ) 7 RS d 820 ) 

REAL K (1 1 1 ) » H3 <13 ) » KK (122 ) » KKK ( 1 33 ) r K38 (IS3 ) t K2 (1 1 2 ) t 
t K2S( (S12) 

DIMENSION A20( 121 )»A1J (112) »A02( 13) »Q30(I3(») .021(121 ) 

DIMENSION Q03(I3)7Q12dl2>>F3d3),BK(I2)fArARd2) 

DIMENSION AT(I2) »V3(13) rBV3(I3) r ATAT(I4) fAT3(16> 

DIMENSION Q3K.K 13 ) 7 A I IP ( X 12 ) » AIK i ll ) t -BTMSS < I S 12 > 

DIMENSION A2KK <13)7 VA2K (3 3 ) » R21 P d 21 ) i Hi 2P ( 112 ) 

DIMENSION Q2KK ( 1 3 ) 7 01X ( 13 ) 7 F3S ( I S3 > t DV4 ( 14 ) 

DIMENSION V38 ( J S3 ) i A30T ( 131 ) r A21 T (122 ) » A21TP ( 122 > f F4 (14 ) 

DIMENSION DV3S ( IS3 > ? A20V2X d 12) 7 A2KKR ( 13) 

DIMENSION BTV3(I12) rAllTdl2) fftilTP(112) jAHVdl.2) 

DIMENSION Q30XX( 1 12 ) > Ql 1 IP (121 ) 7 01 1 IK ( 1 1 2 ) 7 A20T ( 121) r V2K (113) 
DIMENSION A21<I22)»A21P<I22)»Ai2(n;?)rA32P(n3)fA30(I31)fA03d4> 
DIMENSION Q04(I4) 7013(113) 7(122(122) 7(131 (131) 7040(140) 7in3P<n:j) 
DIMENSION Q22P( 12?.) fC31P( 131 ) i AT4(I4tI4) r.AI2T( 113) 7 AiSTPdl 3) 


cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 


cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

Cl** 

c*** 

c*** 

cm 

cm 

cm 

cm 

cm 


DIMENSION Q51PR ( 121 ) * U3IPR ( 131 ) 7 022PR ( 122) » V5B (112) 

DIMENSION V3BK2<I4) r A20K?3< 14) rA30KKK(I4 > r A20KK( 13) rAliPK(13) 
DIMENSION F4S<IS4)fV4SaS4) 

DIMENSION V4 (II ) - BTV4 (1 13 ) » AJ 2V2U 13) > V2K2 ( T 3 4 ) j V3KU14 ) 

DIMENSION DTV4S ( I 8 13 ) , AT 4 18 {144X84 > > X i 2 < 10IHX ) 

DIMENSION V2KK(I24) »DK2<I3) 

REAL K3<I13)/K3S<IS13)»K34< 130*14) »K44(I10«4> 

REAL K23( 123) »K24(I24) 

DATA R/l >/ 

DATA GlDl/O.tO./ 

DATA Q/l f Of 0> 1/ 

DATA V/OfOfOfO/ 

DATA VS/0f 0>0/ 

DATA Q21f012fG30fQ03/J 21*0, Of 1 12*0, Or 130*0, Or 13*0,0/ 

DATA RINV/i ./ 

DATA A/0f 1 f Or 0/ 

DATA B/0> fl >/ 

DATA All/4*0./ 

DATA A02/4*0»fl,r0,f0,f-.t,/ 

DATA A20/2I0,/ 

DATA A30/2I0 »/ 

DATA A12fA21/I13*0ff0,f0«fl,f-l,/ 

DATA A0J/X440»/ 

DATA Q31 fG22f 013 fC40t 004/131*0, r 122*0, 1 11.3*0, f-, 33333333 f 14*0, / 
DATA WfS»M3/IS3*0>»I3*0,/ 

DATA V4Sr V4/IS440. f 14*0,/ 

J9 IS A COUNTER WHICH DETERMINES WHICH VALUES OF THE OPTIMAL COST 
TENSORS AND OPTIMAL FEEDBACK TENSORS WILL BE SAVED BY THE PROGRAM. 
J9 RANGES FROM 1 TO Jll, WHEN 11 REACHES Jilt J10 IS INCREMENT ED, 
J10 IS A COUNTER WHICH KEEPS TRACK OF WHICH RECORD THE NEXT VALUES 
OF THE CALCULATED TENSORS WILL BF. STORED ON, 134 f 18 1 144 ARE 
PARAMETERS WHICH ARE NEEDED IN THE PROGRAM BUT WERE NOT CALCULATED 
IN 'PARGEN' AND ARE THUS NOT IN 'PARAH1 <FTN, ' 

J9~-0 

J10=l 

134=130*14 

18=14*14 

144-140*14 


THE FOLLOWING SECTION CALCULATES SEVERAL TENSORS WHICH ARE NEEDED 
TO SOLVE THE RICCATX EOUATION FOR V. THE RICCATX EQUATION IS! 

DV+VeAV+AVT&V-V&BRBeVPRCOKS-O 


where: 

DV IS THE DERIVATIVE OF V WITH RESPECT TO TIME 
AV=A“Q , 3*Bf» < R*S ( -1 > ) 8UUP 

OUP IS G1D1 WITH THE COVARIANT POWER OF THE CONTROL RAISED 

AVT IS AV TRANSPOSED 

BRB=BP C R*S ( - 1 ) ) 0PT 

BT IS B TRANSPOSED 

QCONSMIR-O, 25*GUPTR ( R** < - 3 ) ) PGUP 

OR IS Q WITH ONE COVARIANT POWER OF THE STATE VARIABLE RAISED 
QUPT IS UUP TRANSPOSED 


cut 

cm. 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cut 

cut 

cut 

cut 

cut 

cut 

1 


cut 

cttt 

cttt 

cttt 

cttt 


cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

cttt 

r*** 

W f T V 


cttt 

cut 

cttt 

cttt 


'R' IS THE CONTRACTION OPERATOR 
't' IS SCALAR MULTIPLICATION 

Rtt(-l) IS THE TENSOR WHICH WHEN CONTRACTED WITH Rr AFTER 
RAISING ONE OF THE COVARIANT POWERS OF THE CONTROL 
VARIABLE OF R> GIVES AH 'IDENTITY TENSOR* ' RU(-l) 

WILL HAVE ONE CONTRAVARIANT AND ONE COVARIANT POWER 
OF THE CONTROL VARIABLE) THE RESULT OF CONTRACTING 
Rtt(-t> AND R WITH A RAISED POWER IS A TENSOR OF THE 
SANE TYPE AS R«(-l)i AND THE IDENTITY TENSOR [S THUS 
DEFINED AS A TENSOR WHOSE VALUE IS ONE IF THE COVARIANT 
AND CONTRAVARIANT BASIS ELEMENTS HAVE THE SAME INDEX 
AND ZERO OTHERWISE, 

NOTE THAT THIS EQUATION IS CALLED A RICCATI EQUATION BECAUSE OF THE 
TERM 'VWBRBOV,' 

CALL SYK(QtQS»0t2»07 0»2t 1R» lS2r IDlHUt IDTHXr l r 1 ) 

CALI. RAISE(O>QR70f0T2/lrO»lyIDINU»ZDIMXrIfl»2) 

CALL RAISE (Q1D1 rOUPr 0»1 » 1 * 1 r Or I r lDIKUf IDIHXi IQIDi » 1 ) 

CALL TCONTCRlNMrQUPfRIQrliliOyliOilfliZRiIUrniy IDINII'flDINXf 4) 

CALL TCOMTIFtRIQi FRIQt 1 »l»OfI>Orl»J»Illj]lljI2rIDIMHrIDIHX»3) 

CALL SMULTIBRIQi I2f-0»S) 

CALL TADB ( At BRIQr AV ? 12 ) 

CALL TRANSIAVrAVT;! 7 1*0? IQ» IOINXtIDIHXtI > 

CALL TCONT (BfRINVfBRirlrlrOflfliOflflllilRrMJ » IDIKUj IDIHX rZ) 

CALL TRANS ( B / B T ; 1 ; 1 » 0 f II 1 ; I D INU 7 ID IMX / 1 ) 

CALL TCONT ( BRI r BT t PRB » 1 » i r (» 1 1 » (> t 1 7 1 t 1 1 1 » 1 1 1 r 12 t ID IKU r .IDIHXi 3 ) 

CALL TRANS<QUP»QOPr7 ). 7<)» 1 /HIj IDINU7IDIHX/2) 

CALL TCONT (QUPTrRIOfRRCifl rlrOrirOslrli IilrllLt X2rIJJ]KUf IDIKXtB) 

CALL SHUl.T ( QRQ 7 12 7 -0 , 213 ) 

CALL TADD(QRQ»6R>RC0NSrIQ) 

NOTE THAT THE INTEGRATION IS BACKWARD IN TIKE FOR CALCULATING V 
AND V3ir <M » > » » BECAUSE THE FINAL VALUE IS KNOWN, THUS INITIALLY 
T"Ti AND DDT S ~DT» WHERE DDT IS THE INTEGRATION TIKESTFP USED. 


T-Tl 

DDT=**DT 


THE NEXT FEW LINES CALCULATE THE FINAL VALUE FOR K, K IS CALCULATED 
FROM V VIA THE FOLLOWING EQUATION t 

K-- 1 tRt t ( - 1 ) P (■ BTBVt 0 1 5 tR UP > 

WHERE EACH OF THESE SYMBOLS HAS BEEN DEFINED ABOVE. 

CALL TCONT ( BT r V 7 BTV r 1 » 0 » 1 ? i x 0 r I r 1 r 1 1 1 r 1 2 r 1 1 1 r I D I MU » ID 1 HX 7 2 ) 

CALL SHULKQUPf Itl/O ,!3) 

CALL TADD ( BT V » QUP » BT V t 1 1 1 ) 

CALL SNULT<QIJPfIit>2») 

CALL TCONT < KIHV »BTV?K» 1 » 1 » 0 t 1 7 Of 1 » 1 7 J20t 1 1 It III 7 IDIMO 7 IIiIHX» 4 ) 

CALI $HULT(KfUIi-l») 

THE VALUES FOR VSr Kr V38» K2S» V4Sf K38 t ARE STORED IN DIRECT 
ACCESS FILES, DIRECT ACCESS FILES MUST BE USED FOR K» K2St AMD 
K3S BECAUSE OF THE NEED TO BE ABLE TO READ OUT TKF. VALUES FROM 
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CtU THE END OF THE FILES BEFORE THE VALUES XH THE BEGINNING OF THE 

Cm FILES. * THIS HUSI BE BO HE WHEN THE VALUES OF THE STATES ARE 

C«* CALCULATED IH 'XCALC' BECAUSE THAT INTEGRATION IS DONE FORWARD IN 
cm TIME, 
cm 

OPEN ( UNIT-1 i NAME" 'VSI. PAT' » TYPE*' NEW' » ACCESS- 'DIRECT ' » FORM- 
& 'FORMATTED '• t RECORDSIZE"! 82# i 1 > CARRI AGECOHTROl.-' ' LIST ' ) 

OPEN < UNIT-2 » NAME* 'KIT. DAT ' i TYPE* 'HEW' r ACCESS" 'DIRECT ' t FORM* 
t ' FORHATTED ' » REC0RDS1ZE«23 7 CARR I AGE CONTROL." 'LIST') 

OPEN (UNITES r NAME* ' V3BI . DAI ' r TYPE* ' HEW ' r ACCESS* ' D I RECT ' r FORM- 
t ' FORMATTED ' t RECORDS! IS3* 1 1 7 GARRIAGECON FROL" 'LIST') 

OPEN ( UN IT "4 7 NAME* ? K2BI , DAT ' r TYPE* 'NEW ' t ACCESS* 'DIRECT ' r FORM* 
I'FORHATTED'»RECORDSIZE"347CARRIAOECONTROL=='LIST') 

OPEN< UNIT*77NAHE*'V4S1« DAT ' r TYPE*' NF.W' » ACCESS* 'DIRECT ' rFORH* 
l ' FORMA TTED ' »R£C0RD8IZE«1G4*I 1 » GARRIAGECON TROL* ' LIST ' ) 

0PEN(UNIT*8»NAHE*'K3SI. PAT' r TYPE* 'NEW' » ACCESS- 'DIRECT' > FORH* 

I ' FORMA TTED ' * RECORD8X ZF«4S r CARR IA6ECONTROU 'LIST') 

WRXTE(l'lf49J)VS 
WRITE(2'1»492)K 
WRITE<3' 1 7493)V3S 

C*#* 

C*#t AFTER STORING VSf Kr AND V3S» THE FIRST VALUE OF K2 IS CALCULATED. 

C#** THIS CALCULATION IS THE SAME AS THAT WITHIN THE INTEGRATION LOOP. 

cm 

CALL TRANS ( All iAI IT. J t 1 » 1 » I12t IDIKUr IDIHXr I ) 

CAU. PERH(A11T>A1 ITP? 1 f 1 7 If 112 r [DIHUr IDXMX»10»4) 

CALL TCONT< AllTPt Vf AlIMi A t Or,?r 1 , 0» it i rZl?r I2r 11 2r XDXKUr IDIKXr ?) 

CAU. SHULT (At IV 7 I12>2»0) 

CALL THULT(K»K»KK7G7l7l f Of 1 » i 7 lUr lii »I22» IDIHU. ID1 MXf4) 

CALL TC0NT<Q3<>7KK..030KK7 1 ? 2i 07 27 07 2, 2r I30> I22 ? I L2r IDINU> IDIHX»4) 

CALL SHULT ( Q30KK » 1 12 r 3 . 0 ) 

CALL IADD ( A 1 1 V 7 030KK 7 BT V3 f 1 1 2 ) 

CALL PERM <Q2 1 7 1(1 UP 7 1 »1 1 1 7 121 f IDIMU. .XDXMXr2r5) 

CALL rC0NT<0mPiK7QmK7l7l7l7l7l707 LjI21 7X11 7 112? IBINXf IDXHUrl 
t) 

CALL SHULT (GUIKt 112*2.-0) 

CALL T A DD ( BTV3 7 0 1 1 1 K > BTV3 7 112) 

CALL TADD(BTV37Q127BIV37ll2) 

CALL rRANS<A207A20Tjl»2707t2l7lDIH07lDIHX7l) 

CALL THULHV 7 K 7 V2K7 1 7 Otl 7 O 7 1 7 1 7 12r Ulr 1 13r IDIKUr ID] HX73) 

CALL TCONT(A2OT7V2K7»V2OV2K7lDIHU7O7l7l70727l7l2l7ll37ll27m7l0IHX7l0) 
CALL SMULT<A20V2K7 1127470) 

CALL TADDt BTV3 7 A20V2K 7 BTV3 7 112 ) 

CALL SYH<BTV37BTV3S7l.27070727 H27lSi2»IDIMU» IBIHXr.tr U> 

CALL TCON T ( RINV 7 BTV38 7 X2S / 1 »1 7 0 7 A 7 0 7 1 7 1 1 120 7 1312 / 1 SI2 7 1 OINU 7 1527 4 ) 

CALL SHULT(K2S7 IS127-0.5) 

WRITE ( 4 ' 1 7 494 ) K2S ““ 

WRI TE < 7 ' 1 7 497 ) V4S 

C*#* 

C### AFTER CALCULATING K2Sr K2S AND V4S ARE STORED. NEXT » SEVERAL 

Cm CALCULATIONS WHICH ARE PERFORMED ON TINE-INDEPENDENT TENSORS 

C*** AND WHICH ARE NEEDED FOR OTHER CALCULATIONS WITHIN THE INTEGRATION 

C*M LOOP ARE CARRIED OUT. OBVIOUSLY 7 DOING THESE CALCULATIONS 

CM* REPEATEDLY WITHIN THE INTEGRATION LOOP GOULD BE A GREAT WASTE OF 

cm TIME. 

cm 


I ; 

i 

; -.1 


Li 

n 

j - j 


r 

Li 

o 


~i 

. j 

j 
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CALL PERH<An»AllP*l»J»lfI12»IDlHII»IDIH>:»l f l) 

CALL PERH(Q21»Q2iP»0f 2i 1 >I21»IDIMU>IDIHXf'-Jf2) 

CALL PERM (Q12fRJ2Pf0flf2fll2fII.il HU »IDI MX »3r3> 

CALL PERM(A21»A21P»i »2 j 1 / I22/IDIHU/ IDINX/l/ 11 ) 

CALL PERK(A12.A12P»l»Jf2fH3rlDIHU»).DIKX,lri2) 

CALL PERH(G31 /QSIP/O/ 3/ X ? 131 » [DIHU».CDIHXr3rl!5> 

CALL PERM ( G22 / Q22P 1 0 » 2 » 2 » 122 r IB). HU » 1PIHX » 3 » U ) 

CALL PERH<Q 13 fQi:*; : vft. J.,3,113, IDIHU/ (BTHXiJ/ 17) 

CALL TRANS (A12/A12Tii »1 i2tX 13> UXJMUf IfJXMXrl) 

CALL PERH<A12T»A12TPj 1j 1 »2i I13» IOIMli; IDINX» 10» 18) 

CALL PERH(021rQ21PR»l»l»lfl21»I81HUrIDJM>:r2»2(») 

CALL PERH(G3i»Q31PRf 1»2» 1 r I31> IOIHU» IDIHXf 2»21 > 

CALL PERM(Q22.Q22PR»l»l»:'»I22rI)J]HUfinXH>:»2r22> 

CALL TRANS(A21 /A21T/ 1 /2/ X / 122/ XDXHIh IDIMXi X ) 

CALL PERM(A21T»A2J TPrXPIHtUl i ir J22i 111 rIPIHXrXJ »23) 

CALL TRANS (A30fA30T> 1 f3»0>I31 / XDINU* IPINX/ X) 

cut 

Cttt NEXT THE FIRST VALUE OF K3S IS CALCULATED. TUTS IS THE SAME 

C*** CALCULATION DONE WITHIN THE INTEGRATION LOOP AFTER EACH CALCULATION 

cm OF V4* 
cm 

CALL TCONT<BT»V4»BTV4»JfO»J »X»0«3rl»HXrI4rIX3iIPIHU»]PIHX»2) 

CALL SNULT(0T«MfI13f4»O) 

CALL TC.0NT<A12TP»V»A12V2»l»0f3ilr0»l t ifIi3»I2>n3rI))IHUrIPIHXi2) 

CALL SMULT(A12M2fI13r2.0) 

CALL TAPD(BTV4iA12V2r»m,113> 

CALL SYN(K2»K2S7l j2f070f2j I12fIS12> IDIHU»IDIHX»2»1?> 

CALL THULT(V»K2»V2K2» 1 >0» J 1 0» 1 » 2r).2i n2rIX4rIDINU7lPIH>!ri<i) 

CALL TC0NT(A20T7V2X27A12V27lDIHU70/l7l70737X7l2X7 1147.1137111 7 TOIHXrtO) 

CALL SHUL7 (A12V2/ 113/4.0) 

CALL T ADD < BTV4 / A1 2M2 / BTV 4 / 1 1 3 ) 

CALL THULT<V7KK»V2KKrJrO»i70»272»12»I22>I24rXBIKUrIDIHX»27> 

CALL rCONr(A30T7V2KK7A12M27lDimi707l7l7O737l7l3l7liM7ll3»l2t»I0IHXflO) 

CALL SHULT ( A12V2 / 1 1 3 / 6 < 0 ) 

CALL TADO( 0TV4 » A12V2 / 8TV4 7 113) 

CALL TC0NT<A21TPfV2Kf A12M2f IllfOfl ti rOf 2rirl22rXt3rX13rIltf IPtKXflO) 

CALL SMULT (A12V2»I13»4 »0) 

CALL TAPP < BTM4 / A 1 2V2 7 BTV4 1 1 1 3 ) 

CALL TC0NT(A11TP7M3»A!2V27 17072. Ir0r2rli n?r]3rll3»lBlHUrIBXNXf2) 

CALL SNULT(A12V27U373,0) 

CALL TADD(BTV47AI2V27BTM47U3> 

CALL THIJL T < V3 > K 7 V3X 7 1 7 0 1 2 7 0 7 1 7 1 7 13 7 II 1 7 II 4 7 IDI HU 7 1 0 IHX 7 17 ) 

CALL TCONT(A20T7M3K7A12V27lDIHU70rl7l70*;?7 17)21 1 114 7ll3r 111 7ID1HX7 10) 

CALL SHULT(A12M27ll37A.O) 

CALL T ADD ( BT V4 / A 1 2V? ? BT V4 / 1 1 3 ) 

CALL T ADD ( BTU4 » 013 7 BTV 4 7 II 3 ) 

CALL THULT < K / K2 / K23 / O / 1 / 1 / 0 / 1 / 2 / 1 1 1 / 112 . 123 7 IMHU > I D I MX 7 20 ) 

CALL TnONr(Q3O7K2377U2V27l72»0»27O73;27l3O7l23»I137l0IMU,I0IHX74) 

CALL SNULT < A12V2 7 1 1 3 7 £ < 0) 

CALL TAPP ( 8TM4 7 A12V2 7 BTV4 7113) 

CALL THULT (K/KK/KKK/O/l tl tOrZi?.tlll *I22i X33rX.DIHUrXBXKXr2U 
CALL TC0NT(Q407KKK7A12V27 l73707370/373» 1407 I33rI137l0IHU7lDIHX74) 

CALL SHULTCA12V27 113/4. 0) 

CALI. TA0D(BTV47AI2y2/BTV47 113) 

CALL TC0NT(G21PR7K2r7jl2.U2i I t! /1 7 X 727 O 7 I 7 I 2 I 7 11271137 IPlHXTlPIHU/i) 

CALL SHULTIA12V27 X13r2»'0> 


CALL TADD(BTV4t Ai2V2f RTV4f I 13) 

CALL TCQNT<Q31PRfKKfA12V2flf Jf2f?f2fOr2fl31fI22fU3r]PlHXfIDIHUrl) 
CALL SMULT < A12V2 » T 13 1 3 » 0 ) 

CALL TADP<BTV4f A12V2fBTV4» 113) 

CALL TCONT (Q22PRi Kf A12V2f i»2»lflrl»0»l»122r.tli rI13r IDIHXf IDIMU j 1 ) 
CALL SNULT(A12V2f I13f2»0) 

CALL TADD(BTV4fA12V2»BTV4f 113) 

CALL 3YH ( BTV4 > BTV4S ? 0 f 3 f A 1 0 ? 3 ? M3f IS1 3 / lOIHUf IDIHX f l f 2A ) 

CALL SYN(BTV4fBTV4Sf 0i3t 1 »0f 3» I13fIS13flDIHUf IPJHXf 2r27) 

CALL TC0NT<RIHVfBTV4fK3»l»lf07lf0f3f lfI207ll3»I13/ [DIHU»ID[HX>4) 

CALL SHULT(K3»)13»-0.5) 

CALL SYH(K3fK3S»lf3»0»0f3»I13fIS13»]DIHIIrmHXrir2H) 

WRITEO' J10; 498)K3S 

C*« 

Cttt K3S HAS NOW BEEN CALCULATED AND SAVED. NOW THE REMAINING VALUES 
cm OF V» V3f K? K2Sf... CAN BE CALCULATED AFTER EACH INTEGRATION STEP. 

Cttt 

DO 100 J-2»IIT 

cm 

cm J9 IS INCREMENTED NOH. IF THEN THIS VALUE OF THE TENSORS 

Ctt* WILL BE SAVED f AND J9 WILL BE SET BACK TO ZERO. IF J? IS LESS 

CM* THAN Jllf THE VALUES CALCULATED THIS TIKE AROUND HILL NUT BE SAVED. 

cm 

J9«J9fl 

c*** 

CM* THE INTEGRATION OF THE RICCATI EQUATION IS THE FIRST PERFORMED. 

CM* THE CONSTANT COEFFICIENTS WERE CALCULATED OUTSIDE OF THE INTEGRATION 

Cttt LOOP. NOTE THAT THE TERNS INVOLVING V MUST DE CALCULATED FOUR TIMES 

C*« BEFORE -.THE NEXT VALUE OF V IS CALCULATED BY RUHOE > THE ENTIRE 

Cttt RICCATI EQUATION WAS DESCRIBED ABOVE, 

cm 

2 DO 20 H»lr4 

CALL TCONT ( V r AV t VAV1 »1»0» J rl *0i li 1 rTQt IQ »I (l »ID1MU» IDIMXrl > 

CALL TCONT<AVTiVfVAV27lfO»lflfOfl7l»IQ7lQ»IQ7lDINU;IDIHXfl) 

CALL TADD ( VAV1 » VAV2 » VAV3 r I R ) 

CALL TCONT (VfBRBfVBRBfJfOflflfO.lflflOflQflRrlDIMUflDlMXrl) 

CALL TCONKVBRBfVfVBVf 1 ;0j 1 » I 7 O 7 1 7 1 7 IQ? IQ? IQrlDJHU; IDIHXf 1 ) 

CALL SMULT(VBVfIQ»~l« ) 

CALL TADD(VAV3» VBV» VAV4f IQ) 

CALL TADD(VAV4»RC0NS»DV»IQ> 

CALL SHUl.T ( DV ; 12 f -1 » 0 ) 

CALL RUNGE (I2rV»DV»l tDDTtH) 

20 CONTINUE 

Cttt 

IF(J9.NE . J1DG0 TO 30 

cm 

cm IF J7-31 i> VS IS TS!Jn« FROM V AND IS SAVED 1- 

C ttt 

C.. WRITE(5ft ) ‘ DV , .{DV{JJ)rJi«lfI2) 

CALL SYNIVfVSf Of 2f Of 0f2?I2f 1827 IBIHU7 10 TMXf 1/3) 

J10-J10+1 

WRITE (1 ' J10 t 491 ) VS 

cm 

CM* NEXT K IS CALCULATED. 

cm 

30 CALL TCONT (BT ?Vf BTVf if Of 1 f 1 fOr if 1 fill f I2r 111 ?lPIHU»IDIHXr2) 
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cm 

cm 

cm 

cm 

31 


cm 

cm 

cm 

cm 

cm 


cm 

cm 

cut 

119 


130 

cm 

cm 

cut 

cttt 
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CALL SHULT < QUP / 1 1 1 f 0 . 5 ; 
CALL TADB(BTVfGUPfFTVfI11 > 
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CALL SHULT<0UP,I272,) 

CALL TCOKKRINVtBTVfKf lflrOflfOfl »1 r!20f Illrlli rI))3MU> JBIHXr4> 
CALL SHULT (X f 1 11 r -1 > ) 

IF (J9,NE.J11)G0T0 31 

WRITK(2'J10f492)X 


RUNGE INCREHENTB T BY PPTf THUS FOR THE NEXT INTEGRATION 1 MUST 
8E CHANGED SACK TO T-DBT, THE CALCULATION Of V3 SERINS NON. 


T=T-DDT 

CALL TC0NT(FfKfBKf1f1f0f1f(»f1f1fI11fI11fI2f1»IHUfIDIK):f3) 

CALL TADD(AfBKfATARrI2) 

CALL TRANS (ATARf AT f 1 rO f 1 tI2f J.DIKX i IDIHXr 2> 

CALL rHULT<X>KfXKfO?I?lFO>I»l»m»IU/I22»EOlHUimNXfl) 

CALL TCQNT(A20f XXf A2XKf 1 F2Fflr2F0F2r2f 121 rl22rI3, IDIHUflDXHXrS) 

NOTE THIS NEXT CALL IS SPECIALLY ADAPT El! TO THIS SITUATION 
WHERE All HAS BEEN PERNUTED (REORDERED) SUCH THAT THE X'S AND 
U'S HAVE SHITCHED PLACES. 

CALL TCONT(AilPrKf AlKrl f 1 f 1 f 1 f 1 » Of I f I12f II 3 f 13 1 IBIMXi TPTHU>2) 

CALI. TA0D<AIK7A?.KXfA2KKfI3) 

CALL T ADD ( A2KK f A02 f A2KK f 13 ) 

CALL DPRODIATfATfATATf (2f [2fI4/1) 

CALL DPROP ( ATAT f AT » AT3 f14fI2fI6f2) 

CALL rC0NT(Q21PFXK7Q2KK707l727272F0F27l2l7l22Fl37lDIHXF(DIHU/2) 
CALL THULT(KFKKFKKKFOflFlFOF272TlljFl22Fl33riniHUfIDTM>:r2) 

CALL TCONT(030»XKK7Q3K370f3f073707.T73j 1307 133/137 IDIHUfIDIHXf3) 
CALL TADD(Q3K3fQ2KKfQ3K3f 13) 

CALL T€0NT(Q12P»K»Q1Kf0 f2 f 1 rl f! f 0,itli2slU rI3rI-DXHXr]DXMUr2> 

CALL T ADD ( 0 3K3 f 0 1 X f Q3K3 f 1 3 > 

CALL TADD(Q3K3f003fH3K3fI3) 

CALL TCONT ( V fA2KK f VA2K f 1 fOf! f3.0f0f1f12f]3f J3FlDIKUrIDIHXrl) 

CALL SHULT (VA2X 7 13 f 2,0) 

CALL TADD<MA2KfQ3X3»VA2KfT3) 

CALL STH(VA2K»F3S>073»0F0F3Fl3FlS3Fl»INUFtDIHXFl77) 

CALL SYN<F3fF3Sf0f3f0t0f3fI3f IS3f lflINUrIPIHXr2F8) 

THE FOUR STEP RUNGE-KUTTA INTEGRATION STARTS HERE FOR V3G, 

DO 130 H=1f4 

CALL TCONT < AT3 1 V3 »PV3 fIfOfIfIfOfOfIf 16 r 13 f 13 1 ID1HU r 13 r 1 ) 

CALL TADD<DV37F3fDV3fI3) 

CALL SHULT<DM3f!3f-1 . 0 ) 

CALL RUNGG<I3FV3F0V3FrfDDrFM) 

CONTINUE 

V3 HAS NON BEEN FOUND. IT HUST BE SAVEBr IF AND M38 MUST 

DE DETERMINED, THEN THE CALCULATION FOR X2 STARTS. 

CALL SYK( V3 » V3S > 0 1 3 f 0 f 0 r 3 1 1 3 f 103 r I DlKUr I DiHX f i > 9 ) 

IF ( J9 , NE , J1 t )G0T0 136 

WRJTE<3'J10f4?3)V3S 

C Al l. TCONT < BT / V3? » TV3 7 1 f 0 f 1 f 1 f 0 7 2 f 1 7 1 JL 1 7 13 7 1 1 2 7 1 D I HU f I D IHX f 2 ) 


CALL SNULT<BTV3»H2f3«0> 

CALL TC0MT(AllTPrV»AlJM»l»0,2»li0rl7lfI12f T?iI12>lDXHUrIDIMX>2) 

CALL SHUl.r<AUV»I12f2»0) 

CALL TADD<BTM3rAUV»KTV3fIl?> 

CALL TC0NT<Q30rKKrG30KKr 1 *2*0* 2i 0r2f 2» J30r T22r 112t IDIHUi lDIMXr4 ) 

CALL SHULT < Q30KK »I12»3»0) 

CALL TADIMBTM3»Q30KK»B7V3»112) 

CALL TCOKT(GniP»K»GlllKfl»l»l»i»lTO» 1 r 121 rill r 112* JDIHXi IDIHUrl 

I) 

CALL SHULT(GlllKrI12'2«0) 

CALL TA»J?(BmrQltlK/BTV3»tl2) 

CALL TADD<BTM3rQ12»BTV3fll2) 

CALL TNULT(M?K7V2K> IfOrl r IflZrllif I13r IDIMIIf IOIMXf 3) 

CALL TCONTIA20T »M2K»A?.0M2K»]DlMUr0»]l rl r0t2»i rI2l7ll3rll2sUl»IDIHXrlO) 
CALL SHULT(A2QV2K7 112»4>0) 

CALL TAPD(BTV3»A20y2K»BTM3r 112) 

CALL 3YM(BTM3»BrM3S»l »2>0»0>2f Jtl2»IS12»IBIMU7iOIMXf If 11) 

CALL TC0MT(RlHVfBTV3SfK2Sf 1 1 1 »Orl rO r 1 fi 1 120 f!S12r IS1 2 r JDIKUi 1S2 t4) 

CALL SHULT(K2SfISt2f-0,!5> 

IF{ J9, NE, Jll )GGTD 146 

URTT£<4'J10f494)K2S 

146 CONTINUE 

CALL SYN(K2fK2Sil»2f0f0f2»U2f J.f;l2»IPlHUf l))IHX»2r20) 

cm 

cm NON THAT K2 HAS BEEN FOUND r T HUST BE SET BACK TO T-DDT AND THE 
C*« CALCULATION FOR U4 STARTS, 
cm 

T=T-DDT 

Cm V 

C*** IN THE NEXT SECTIONr A20K23 AND V3BK2 ARE USED AS RUNNING SUMS FOR 
Cm THE CALCULATIONS BY UTILIZING THE APPROPRIATE OPTION IN TCONT! , 

cm THUSf THE FOLLOWING EOUATION NHL HOLD FOR THE FINAL VALUE OF 

Cm V3BK21 

cm 

cut A 

Cttt DU4t AT 42V 4+V3BK2=0 

cm 

CALL 5PR0D(ATfAT3»AT4f I2r I6rI0i 10) 

CALL TCONr(B;K2f8K2rl? If0?l?0?2f If 111? IJL2>I3rIDINU/IDIHXr3) 

CALL TADD(BK2fA2KKfBK2fI3> 

CALL TC0NT1 <V3fBK2fV3BK2f 2f Of lrl rOt 2rlf I3f J3f I4 » IDIHUtIDIHXt 1 r3i 0) 

CALL. THULT(K»K2fK23fO?lf 1*07 £#2f IHfIJl2fl23f IDINUflOINXf 1<>) 

CALL SHULT (K23 7 123 7 2,0) 

CALL TCONTl<A20tK23fA20K237l7270f27073 ( 27l2l7l237l47lDIMUrIDlHXr3ri. ) 
CALL TA0D(AO3f A20K23r A2<)K'23f 14) 

CALL T CONTI ( A30 7 KKK f A20K23 r 1 r 3 7 0 » 3 r 0 » 3 r 3 7 131 7 1 33 1 14 r IBIHUf I DIM)! r -3 r i « 0 ) 
CALL rCONTl ( A 1 IP 7 K2 7 A20K23f 1 7 1 j 1 7 1 7 2 7 0 7 1 7 1 12 7 112 7 1 4 7 IDINX > TDINU f *2 f 1 » 0 ) 
CALL TC0NTl(A21p7KKfA20K23flilr2»2r270727l227J227l4rIDIHXrIDIKUT--27l,0) 
CALL TCONT1 (AI 2 P 7 K 7 A 2 OK 237 1 f2? 1 fl 7 1 7 Of If H3fin fHflDINXf iDTMUf-#? 1.0) 
CALL TCONT 1 < V ? A20K23 f U3BK2 7 1 1 0 r 1 * 4 1 0 r 0 t 1 f 1 2 7 14 t 1 4 r I D IKU r ID I KX r - 1 r 2 < 0 ) 
CALL TNUL T ( K2 7 K2 r K24 7 0 * 1 7 2 7 0 ; 1 7 2 7 1 1 2 7 1 1 2 / 124 > IDI HU 7 1 0IHX f 13 ) 

CALL TC0NT1(RfK24f V 3BK2f Of 2f Of2r0f4f2i I20 f 124f I 4f IDIHUr 1 DIHXt-3»1 « ) 

CALL TADD<V3BK2fQ04f«;3»K2fI4) 

CALL THULT(KK7K27K34f0f2f2r0fli27l22»]12»T34fID)HUrIDIMX7l4) 

CALL SHULT (K34fI34f3»0) 

CALL TCONT 1 < 030 fK34 7 V3BK2 rO 7 3 « 0 1 3 » 0 r4 > 3 f 1 30 r 134 . 14 r TDIHU 7 IDINX 7 -?, 7 1 , 0 ) 
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cm 

cm 

cm 

cm 

cm 


100 

cm 

cm 

ctt* 

cm 


OmcHMAl- 

OE POOR QUALITY, 

CALL rHULT(KK7KK»K4470727 2x0x2/27 I22x I22x 144 xIDIMIJx IDIHXx 15) 

CALL TC0MTl<040»K44 t M3PK2»0»4 f 0»4r0i4,4iI40rI44»I4rI»]MU»IDIM>:i-3 f l, ) 
CALL TC0HTHQ21P»K23 jM 3BK2»0> l7 2>2>3»«);27 121 x I23x I4x IDIHXx ID IMIJx-1 x l • ) 
CALL TC0NTl(R31P»KKK»V3PK2»0r 1 r?t 3»3»0r3r 131 r 1*33 fI4t IDIHXx ID JHUf-l ri « ) 
CALL TCOHTt (Q12p7K27 , )3BK2»0>27 1 » IxJxO? A ? I12x X12x 14 x IBIHXx IOIMUx-1 r 1 » ) 
CALL TCQNTl<Q22p7KK» V3BK2x 07 2 t2t 2x 2xQr2f J.22x X22r I4x IDIHXx ID JKUf-1 7 3 . ) 
CALL TC0Nri<Q13P7KiV3BK270x3» A / A 1 1 x*)? 1 7 113; 1 11 x 14? IDIHXx tOTMllx-1 x 1 , ) 
CALL SYN(V3BK27F4S7074 7 0fOr4r J 4x I 547 IDJ.HU 7 J DIHXx 1 » 23) 

CALL SYH (F4xF4SxQ7 4/OfOx 4x I4x IS4r IDIHUi IDIHX 7 27 24) 

DO 305 H*lx4 

CALL TC0NT(AT47V47m»47l707i7l70707l7l4*I47]47l4rI»IM»fI4fl) 

CALL TADD ( 0M4 7 F 4 7 DM 4 7 X 4 > 

CALL SMUlT<DV4»I4x-i,0> 

CALL RUNQEIMx^MxD'MxTxDDTxN) 

CONTINUE 

V4 HAS BEEN DETERMINED. IF J9==.)11t V4S MUST BE SAVED AND K38 MUST 
BE CALCULATED, IN THE CALCULATION OF K38» BTV4 ACTS' AS A RUNNING 
SUN IN THE SAME MANNER AS V3BK2 ACTED AS A RUNNING SUM ABOVE. 


IF(J9.NE<Jli) GOTO 100 

CALL SYH(V4»V4S»0x4» Of 0»4 7 14 rIS4x lDlMUx IDIHXx lr2ii) 

URlTE(7 / J10f497)M48 

CALL TCONT 1 < BT x V4 x BTV4 > 1 ? Ox 1 x 1 x 0 t3x 1 x II 1 7 14 r I13i XDlMIJr 1DTMX 1 2 r 4 . ) 

CALL TC0NTUA12TP7V7BTV47 A xOrSxlxOxlxl xIlSx I2x 113, IDIMUiIQtNXf-2»2>> 
CALL THULT ( V 7 K2 7 V2K2 x 1 1 0 » 1 » 0 r 1 » 2 7 12 x 1 12 r 1 1 4 t IDIHU r I DIMXi 1 A ) 

CALL rCONri(7l20T7V2K27BTV47lDIMU7C)7l7l70737l7l2l7n4 7n37lll7lDIMXf-10 

1x4.0) 

CALL TMULT (V 7 KK 7 V 2 KK 7 1 7 O 7 1 r Or 2f2rI2r 122x124 r IDXMUrlDIHXf 27) 

CALL TC0NTKA3QT xV2KKxBTV47 IDIMUxO/lx Ix0x3x 1 7 131 7 1 24 7 113x1217 ID IHX 7 -10 

t 7 6 , 0 ) 

CALL TC0NT1 <A21TP»V2KxBTV4x)ii xOxlxl 70.2x1 7122.113x113. II lx IBIHXT -10 

1x4,0) 

CALL TC0NT1(A11TPiM 3»BTV47 lxOx 2x 1 x0r2x 1 rI12x I3x I13?XDIKUxlBJMX» -2. 3. > 
CALL TNULT(V37KxV3K7l7072;07l7 1x137 IIIxIHjIDIHUxIDINXx 17) 

CALL TC0NTl<A20TxV3KxDTV4rIDIHU»0rlxl,0f3xlfX2irn4fIJ3rllJ rIDIHXr-10 
IxA.O) 

CALL TADD( BTV4 xQ13x BTV4 f 1 1 3 ) 

CALL TC0NT1 (Q30xK237BTV47 l»2x0f 2x0r3x2i I30> I23»I13 tIDIKU 7 lPIMXr"4x3« ) 
CALL TCQHXl<Q40»XKK7BTV4,Ax3x073x0x373xI40xI33fn3xIDIHU7l))IHXx-4x4,) 
CALL TCONTl(Q21PRfK2»BTV47l»lrl7lf2r0il7l2irn2rI13rlDIKX»IPIHU7-lr2,) 
CALL rC0NTKQ3iPR7KK7BTV47l7l 72727270/2? 1317X2271137 IDIMX 7 IDIMIJ 7 -I x3.) 
CALL TC0NTl<Q22PRxKxBTV4xlx2xlfl7ir0xlrI22riniI13rHiIKXxIDIHU7-lr2, ) 
CALL SYH < BTM4 7 BTV4S 7 0 7 3 7 1 7 0 7 3 7 1 1 3 7 1 S 13 7 1 DINU x X 01 MX 7 1 7 24 ) 

CALL SYH ( HTV4 7 BTM4 S x0f3x 1x0x3x11 3x1813. IfilMU » I DIMX x 2 r 27 ) 

CALL TCuNT i kTNV?»7v4 7 K3 7 i 7 \i 0? 1707 STL > 120 ill 3 7 113? ID JMU xIPIMXx 4 > 

CALL SMULT(K3x 1137-0, 5) 

CALL SYM<K3» K 3 S 7 I 737 O 7 O 73 x 113x10137 IDIMUiIDIHXx 1 1 28) 

HRITEC8' JlOi 498JK3S 

J9 C 0 

CONTINUE 


AFTER ALL OF THE CALCULATIONS HAVE BEEN PERFORMED r THE OUTPUT FILES 
CLOSED. 

CLOSE! UNIT* 1 7 DISPOSE- ' SAVE ' ) 
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i 


145 


CLOSE ( UNIT =2 r DISPOSE" ' SAVE ' ) 

CLOSE < UN I T r -3 » DISPOSE " ' 5 A VE ' ) 

CLOSE ( UNIT-M » DISPOSE* 5 ' SAVE ' ) 

CLOSE ( UN IT* : 7» DISPOSE- 'SAVE' ) 

CLOSE ( UN I T-8 » 01 SPOS £» ' SAVE ' ) 

RETURN 

cm 

Cm THE FOLLOWING ARE THE FORMAT STATEMENTS . THESE ARE USED TO OUTPUT 

C*« THE VALUES OF V2S> Kl>>>. AHD MUST BE CHANGED ACCORDING TO THE 

C*** PROBLEH SIZE. ONE GOAL WHICH IS EASILY ATTAINABLE IS TO HAVE THE 

cm PROGRAM PARGEN WRITE A FILE OF FORMAT STATEMENTS AND TO HAVE THIS 

C*« PROGRAM ' INCLUDE' THAT FILE, 

cm 

491 F0RNAT<3E11,4> 

492 FORHAT < IX, 2E11 , 4) 

493 F0RHAT(4E11«4) 

494 FORHAT ( IX f3E 11 >4) 

497 F0RHAT(5E11.4) 

498 FQRHATdXf 4E11 ,4) 

END 



cun 

CbUA 

Cfi'r i 

C •{ 4 i' 

Cm 

cm 

cm 

cm 

Cm 

Cm 

C*t$ 

cm 

cut 

c*** 

cut 

cut 

cm 

CPU 

cm 

cut 

cut 

u-U-t- 

ctis 

cm 

Cm 

cm: 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cut 

cut 

cm 

cut- 

cut 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cut 
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1 1 f f 1 1 f * i i i 1 1 1 1 1 :• t i t 1 f ' 1 1 i 1 1 t -r- i 1 1 1 1 1 i i. >• t t t ttt J f t* J t It'* t -t- 1 :j: $ J * i * i t % % 
t i i I i: t t # i T ? r T £ T #$.1 T t i i m:i?m : jM UtU* mm Ui'tUtt 

nntnnnntnnnrrntn-n-innnnnnnnttn-n nut mu mi 

TITLE} XCf’iLC 

AUTHOR! JOSEPH At O'SULLIVAN 

SUBROUTINE XCALC CALCULATES THE TRAJECTORIES OF THE 
STATES OF A SYSTEM AFTER THE FEEDBACK TENSORS HAVE BEEN SAVED 
THE VALUES OF THE STATES ARE SAVED IN SEQUENTIAL FILES FOR 
THREE DIFFERENT CASES? LINEAR FEEDBACK! QUADRATIC FEEDBACK t 
AND THIRD ORDER FEEDBACK , THIS SUBROUTINE IS NORMALLY USED IN 
THE SAME PROGRAM AS TNSCLC WHICH CALCULATES AND SAVES THE 
FEEDBACK TENSORS* IT CAN » HOWEVER? BE USED IN A PROGRAM WHICH 
USES FEEDBACK TENSORS OTHER THAN THE OPTIMAL ONES ? UNDER THE 
PROVISION THAT THEY ARE STORED IN FILES OF THE SAME TYPE AND 
NAME AS USED IN THIS SUBROUTINE, 

THIS SUBROUTINE USES THE FILE 'PARAMl.FTN' WHICH MUST 
BE SET UP BY ' DK2 ? P ARSEN , TBK ' , THIS SAME 'F'ARAMl , FTN' MUST BE 
USED BY 7 TNSCLC' OR ELSE THE FILES WITH THE FEEDBACK TENSORS 
WILL BE OF A DIFFERENT SIZE* AND THE COEFFICIENT TENSORS IN THE 
DIFFERENTIAL EQUATION DESCRIBING THE SYSTEM WILL BE DIFFERENT 
SIZES AS WELL, 

IMPORTANT VARIABLES? 

IDIMXr IDIMU; 12 » III: 120? 13.- 121 / I12f 130?.,,? 

DIMENSION PARAMETERS CALCULATED BY PARGEN AND 
USED IN THIS PROGRAM VIA THE FILE 'PAR AMI ♦ FTN' 
HIT? THE NUMBER OF INTEGRATION STEPS IN THIS SUBROU- 
TINE, THIS IS ALSO FROM 'PARAM1 , FTN' . 

X? THE STATE VECTOR WHICH IS BEING INTEGRATED 
U? CONTROL VECTOR WHICH IS A POLYNOMIAL FUNCTION OF 
THE STATES 
DX? DERIVATIVE OF X 

XI? STATE VECTOR CALCULATED USING QUADRATIC FEEDBACK 
Xi2? STATE VECTOR CALCULATED USING THIRD ORDER FEED- 
BACK 

U2! TENSOR PRODUCT OF U WITH ITSELF 
X2? TENSOR PRODUCT OF X WITH ITSELF 
X2S? SYMMETRIC TENSOR PRODUCT OF X WITH ITSELF 
BU? DUMMY VARIABLE USED IN THE CALCULATION OF DX 
UX? TENSOR PRODUCT OF U WITH X 

X3 r X3S? THIRD ORDER TENSOR PRODUCT OF X? AND ITS SYM- 
METRIC VERSION? RESPECTIVELY 
K? K28? K3S? SYMMETRIC FEEDBACK TENSORS 
K2X2S? INTERMEDIATE VALUE USED TO CALCULATE U 
M? INDEX WHICH KEEPS TRACK OF THE NUMBER OF THE PASS 
THROUGH SUBROUTINE RUNGE THAT IS BEING MADE 


PROGRAM SECTIONS? 

I) THIS PART SETS UP THE DIMENSIONS OF THE VARIABLES 

GETS THE VALUES OF THE PARAMETERS FROM 'PARAM1 ' 
OPENS UP THE FILES WHERE THE FEEDBACK TENSORS 
ARE STORED? AND SETS UP THE FILES FOR STORING 


m? 

NT 

m 

ij :!< 

in 

nt 

m 

tu- 

tu 

ru- 
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tn 

nt 

tn 

rtt 

tn 

nt. 

nt 
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rn 
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tn 
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tn 
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cm 

cm 

C-f i t 

n i v 

W :• i- r 

C i t r 

cm 

cm 

Ct.$4 

Cm 

cm 

Cttt 

cm- 

cm 

cm. 

cm 

cm 

cut 

cm 


1 HE 
THE. 


4) 

5) 


INTEGRATION 
THIS IS THE 
STATES 

i : 


%%% 
t%% 
n 'f 
m 
m 
Ml 
MU 

m 
m 
m 
tu 
MU 
ttt 
ttt 

m 
m 
tn. 

u* 

cmmjmmmmmmmmmmmmwmmmmmmmmm** 
cmmmmmmmmmmmmmmmmmmmmnmmmm 
cmmmmmmmmmmmmmmmmmmmmnmmmm 

SUBROUTINE XCALC 
INCLUDE 'PAR AMI . FTM' 

DIMENSION DX a D I MX ) ; X ( IB I MX m U ( I D I HU ) ; X 1 ( I D I MX) 

BIMENSI ON U2 (120 ) j X2 (12 ) r X2S ( 1 32 > ; BU ( 1 3 1 MX J t UX (1 1 1 ) 

DIMENSION X12(IDIMX)iX3(I3) »X3?(IS3) 

REAL K(Ill)fK2S(IS12) j K3S( ISIS) i K2X2SUDIMU3 


THE VALUES OF THE STATES, IT A! SO ACCEPTS 
INITIAL VALUES FOR THE STATES -'Nil READS IN 
INITIAL VALUES FOR THE FEEDS AC.' TENSORS, 

2) THIS SECTION IS THE FIRST OF THREE sEi-TIOHS INSIDE 
THE MAIN DO LOOP. IT INTEGRATES THE STATES 
USING ONLY LINEAR FEEDBACK, 

INTEGRATION USING QUADRATIC FEEDBACK 

USING THIRD ORDER FEEDBACK 
OUTPUT SECTION, THE VALUES OF THE 
ARE PRINTEBf ALONG WITH THE STANDARD 
UCLIDEAN) NORN OF THE STATES, 

6 ) THE FILES STORING THE VALUES OF THE STATES ARE 

THE PROGRAM CAN BE REPEATED 
TO RUN IT AGAIN WITH A DIF- 
THE VALUES FOR THE 
THEN PRINTED. 


DELETED AND THEN 
IF IT IS DESIRED 
RENT STARTING VALUE, 
FEEDBACK TENSORS ARE 


7) THIS IS THE FORMAT SECTION, 


cm 

cut 

cm 


i 


201 

cm 

cm 

cm 

cut 

cm 

cm 


THESE ARE EXACTLY THE SAME OPEN STATEMENTS AS IN TNSCLC, 

OPEN ( UNIT®2 , NAME® ' K1 1 , DAT ' 7 TYPE® 'OLD ' ? ACCESS® ' DIRECT ' 7 FORM® 

£ 'FORMATTED ' » REC0RDSIZE=43 r CARRIAGECGNTRGL® 'LIST ' ) 

OPEN <UNIT=4»NAME*'K2SI. DAT'iTYPE®' OLD ' j ACCESS®' DIRECT' » FORM® 
S' FORMATTED 'jREC0RDSIZE®67jCARRIAGEC0NTR0L=' LIST') 

OPEN { UNIT ®8 >NAME=' K3SI , DAT ' t TYPE® 'OLD' i ACCESS® ' DIRECT' * FORM® 
S ' FORMATTED ' > RECORDS IZE= 8 ? / CARRI A6EC0NTR0L® 'LIST') 
DBT=DT*FL0AT(J11> 

TYPE tr '• ENTER THE STARTING VALUES FOR X.' 

ACCEPT *iX(1)iX(2> 

DO 201 J1®1 r IDIMX 
X12(J1)=X(J1) 

X1(J1)=X(J1) 


THE FILES WHERE THE VALUES OF THE STATES GILL BE STORED FOLLOW, 


THESE FILES NEED NOT BE 
BE ABLE TO ACCESS THE -S 
SEQUENTIAL, 


DIRECT ACCESS SINCE THERE IS NO NEED TO 
fOREB VALUES In ANY MANNER OTHER THAN 


OPEN ( UNIT®? rNAME® ' XI, DAT ' 7 TYPE® 'NEW 'r ACCESS® 'SEQUENTIAL') 

OPEN ( UNIT=10rNAME='XlI .DAT' 7 TYPE® 'NEW' j ACCESS® 'SEQUENTIAL ' ) 

OPEN < UNIT®! 1 r NAME® ' XI 21 . DAT' j TYPE® 'NEW' r ACCESS®' SEQUENTIAL ' ) 

WRITE(?r*>X 

WRITE{107*)X1 

URITEfll r$)X12 

DO 260 J=1 » I IIT-1 ORIGINAL PM S 

OE POOR QUALITY 
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-i 

Ct*S 

cm 

cm 

cut 


210 

cm 

cut 

cm 

Cm 

CtU 

cm 

cm 


220 


cut 

cm 

cut 


IK- 1 1 IT— J 

R E A B < 2 ' I K ? 4 9 2 >'K ( J 1 > ? J 1 m II 1 ) 

R E ft D ( 4 ' I ! C » <1 9 4 ) ( K 2 & ' J 1 > , . J 1 a 1 , 1 3 1 2 ) 

R E A D ( 8 ' I K 4 ? 8 ) < K 3 S ( J 1 > , J 1 « 1 * 1 5 i 3 ) 

SECTION 2, THE CONTROL VARIABLE IS JUST A LINEAR FUNCTION OF THE 
STATES. THE SUBROUTINE RUNGE HOST BE CALLED FOUR TIKES IN ORDER 
TO CALCULATE THE RUNGE-KUTTA COEFFICIENTS- 


HO 210 H-UA 

CALL TCGNT(K?X?Uf 1 ? 0 j 1 ? 1 ?0?0f 1 ? Ill ? IDIMX? IDIMU » IDIHU ; IDIMX , 2) 
DX< 1 ) =U(2)*CQSH(X (1 >*X(2) ) -EXP(2 ,*U ( 1 ) ) *SINH (2 ♦ *X< i) ) 
S-3.*SINH(X(2)) 

DX{2)=EXF(U(mU(2>)mNH(X(l5)“EXP(U(l>)*U(mC03H<:<{l)*#2) 
SPSINHCX (2) ) 

CALL RUNGE ( IDIMXjXjBXjT ? HOT r M ) 

CONTINUE 

WRITE<9?*)X 


SECTION 3 » HERE THE CONTROL IS A QUADRATIC FUNCTION OF THE STATES. 
THE SECOND ORDER TENSOR POWER OF THE STATES MUST BE CONFUTED AND 


THEN SYMMETRIZED, NOTE THAT SINCE THESE TENSOR POWERS OF THE 


STArce 

win I uv 


ARE CONTRA VARIANT POWERS THE SYMNETR RATION IS DIFFERENT THAN 


FOR THE COUARIAMT SYKHETRIZATIQN, 


T=T-DBT 
DO 220 H=lf4 

CALL TCONT (K?X1 ?Uf 1 ? 0? 1 ? 1 > 0? 0 r 1 7 111 r IDIHX? IDIHU / IDIKU r IDIh'Xf 2> 

CALL TMULT{XiiXlrX2f0f0» l»0»0»lrIDIKJi , *IDIMX*I2i IDIMUrlDIMXi 12) 
X28Q>=X2<1) 

X2S(2)=(X2(2)+X2(3) )/2. 

X2S(3)=X2(4) 

CALL TCONT(K2SfX2S?K2X2S?l?0»l»lrOfO?l»ISi2t IS2?Il!lMUf IDIMU»IS2i2) 
CALL TADD(UrK2X2Sf Uf IDIMU) 

DX(1)*U(2)*C0BH(X1(1)*X1(2))-EXP(2,*U<1))*SIMH(2,*X1{1) > 
&-3,*SINH(Xl<2)) 

DX( 2 )=EXP(U<mU( 2 ) )*SINH<Xl(l))-EXP(U<l))*U(l>*C0SH<Xl<im2) 
S+SINH ( XI ( 2) ) 

CALL RUNGE { IDIMXi XI > DX t T j DDT r M ) 

CONTINUE 
T=T-BBT 
WRITE (10ft) XI 

SECTION 4, THIS IS THE THIRD ORDER INTEGRATION, 

DO 230 K= 1 f 4 

CALL TC0NT(KfX12fUrlf0f I,lf0f0f lflllfIDIMX/IBIHUf IDIHUf ID.IKX; 2 ) 
CALL TMULT(X12f X12f X2f 0»0» 1 f 0 f Of 1 »2»2f 4 r2r2f 13) 

X2S(1)=X2(1) 

X2S(2)=(X2(2)+X2(3))/2, 

X2S(3)=X2£4) 

CALL TCONT(K2SfX2SfK2X2S»lfOfl»ifO»OflfIS12fIS2»IIiIMUfIDIMUfIS2f2) 
CALL I ADD ( U T K2X2S ? U » IDIMU ) 

CALL TMULT(X12f X2? X3r0» 0» 1 » 0»0>2f IDIMX»I2f 13? IDIHUf IDIMXf 13) 

X3S( 1)=X3( 1 ) 
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263 


264 

C**fc 

cm 

cm 

cm 

cm 
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X3S ( 2 ) - ( X3 < 2 1 -f X3 ( 3 ) + X3 ( 5 ) ) /3 * 

X3S(3) = <X3(4>LX3(6HX3(7>}/3. 

X3S(4)=X3(8) 

COLL TCONT (K3S? X3S?K2X2S» 1 j 0» 1 > l?0?(b i > IS13? IS 3: IliIMU.' IBIM'J > I33}2> 
CALL TODD ( U t K2X2S , 'J • I0IHU ) 

BX(1>=U(2>*C0SH<X12{1)8X3L2(2)>-EXP{2.*U<1>)*SINH(2»*X12(1)) 


8-3.*SINHtX12<2>> 

DX<2)»EXP(U(i}tU(2>)*8INH(X12U))-EXP(U( t mU(l>*C0SH(X12<m*2> 
i+SIHH(X12(2)) 

CALL RUN6E < IDIMX > X12 » BX » T i DDT i M ) 

CONTINUE 

WRITE(11»*)X12 

CONTINUE 


SECTION 5, NEXT COMES THE OUTPUT SECTION. ALL STORED VALUES 
FOR THE STATES AND THEIR NORMS ARE PRINTED, 

WRITER**}' FIRST ORDER VALUES FOR X,' 

WRITEOf*)' ' 

REWIND 9 
REWIND 10 
REWIND 11 
DO 262 JimillT 
READ(9»*>XU)»X(2> 

WRITE < 5 » * > J1 » ( X ( J2 ) » J2 = t » IBI MX > i ' NORM X ' j SORT ( X ( 1 } **2+X ! 2 ) tt 2 > 
WRITE(5f#) ' ' 

WRITE(5»*>' SECOND ORDER VALUES FOR X, ' 

WRITE! 5 m ' ‘ 

DO 263 J1=*1,HIT 
READ { 10 .• *} X ( 3 ) ? X ( 2 ) 

WRITE! 5f #>Jlf tX(J2) fJ2=l» IDIMX) j 'NORM X'fSQRT(X(l)W2+X(2)«2) 
WRITE(5»*>' ' 

WRITEOi*) 7 THIRD ORDER VALUES FOR X,' 

WRITE<5»*)' ' 

DO 264 Jl=l »IIIT 
READ ( 11 r ¥>X(1 ) >X(2) 

WRITE ( 5 f J1 r (X< J2) y J2=l t IDIMX) r ' NORM X ' ? SORT ' X C 1 ) **2+X(2 > **2> 

SECTION 6, THE FILES WHERE THE VALUES OF X ARE STORED ARE DELETED. 
IF THE PERSON RUNNING THE PROGRAM WISHES TO RUN IT AGAIN WITH A 
DIFFERENT STARTING VALUE FOR THE STATE VECTOR ? HE ENTERS '1 ' FDR 
IAGIN. 

CLOSE <UNIT=? fDISP0SE= ' PRINT ' ) 

WRITE(6»*)' ' 

CLOSE ( UNIT-10 rDISPOSE='PRINT' ) 

WRITE(6»*> ' ' 

CLOSE (UN IT=11j DISPOSE- 'FRI NT' ) 

TYPE IF YOU WANT TO RECALCULATE X WITH A DIFFERENT STARTING' 
TYPE VALUE THEN ENTER 1,' 

ACCEPT *» IAGIN 
IFdAGIN.EQ.DGQTQ 1 
CLOSE (UNIT-27DISP0SE= , SAVE') 

CLOSE ( UN IT=4 rDISPOSE=' SAVE' ) 

CLOSE ( UNIT=8» DISPOSE* ' SAVE ' ) 
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cm 

cm 

cm 

cm 

492 

49S 


RETURN 


SECTION 7 i THIS IS THE FORMAT SECTION , 
r ORMAT STATEMENTS AS IN THE SUBROUTINE 


THESE ARE 
'TNSCLC' * 


EXACTLY THE SAME 


FORMA i ( IX; oExi > 4 ) 

FORMAT (1XHE! 1,4) 
FORMAT UX iBEli ,4) 
END 


\r- 
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TITLES STAB *** 

AUTHORS JOSEPH A, O'SULLIVAN Ut 

DATE? DECEMBER. 31VS3 ttt 

m 

STAB PERFORMS AH EXHAUSTIVE SEARCH OF THE PHASE PLANE C»* 

OF POTENTIAL INITIAL CONDITIONS TO DETERMINE THE REGION OF m 

OF USEFULNESS OF THE THREE CALCULATED FEEDBACKS' LINEAR* ttt 

QUADRATIC* AND THIRD ORDER » THE PROGRAM FIRST READS IN THE ttt 

STORED VALUES OF THE CONTROLLER TERMS FROM THE DATA FILES ttt 

WHERE THEY HAVE DEEM STORED AFTER BEING GENERATED BY THE ttt 

PROGRAM THSClC. THE DATA FILES FROM WHICH THESE VALUES ARE ttt 

READ ARE THEN CLOSED (IT WAS FOUND THAT THE FEWER FILES OPEN ttt 

AT ANY ONE TIKE THE FASTER THE COMPUTATIONS ARE PENFORKED.). ttt 
DATA FILES ARE THEN OPENED IN WHICH THE REGIONS WILL BE STORED, ttt 

THE PROCESS OF CHECKING PERFORMANCE FOR VARIOUS INITIAL CON- ttt 

DITIONS IS THEN BEGUN. FOR EACH INITIAL CONDITION VECTOR* m 

A MODIFIED VERSION OF THE SUBROUTINE XOALC IS RUN. THIS ttt 

VERSION OF XOALC HAS SEVERAL FEATURES ADAPTED ESPECIALLY FOR ttt 

THIS USE. ) F THERE IB AH OVERFLOW IN A CALCULATION FOR ONE OF W 

THE STATES THEN THE LOGICAL VECTOR INDDX IS SET TO FALSE FOR m 

THE ORDER OF THE FEEDBACK IN WHICH THE OVERFLOW OCCURRED. ttt 

THIS POINT IS DEEMED OUT OF THE REGION OF USEFULNESS. 3(MJ> ttt 

LARLY* IF THE FINAL VALUE OF THE STATE IS LARGER THAN SOME ttt 

THRESHHOLD VALUE* INDDX IS SET TO FALSE FOR THAT FEEDBACK ORDER ttt 
AND THE POINT IS DEEMED OUT OF THE REGION OF USEFULNESS. AFTER ttt 
RETURNING TO THIS PROGRAM * I HE ELEMENTS OF THE THREE VECTORS ttt 
UN i QUAD* AND THRD ARE SET TO OR 't' ACCORDING TO WHETHER ttt 

THE INITIAL CONDITION IS OUT OF OR IS IN THE RESIGN OF USEFUL- ttt 
NESS* RESPECTIVELY, THESE VECTORS ARE Thc.H STORED IN THE RES- ttt 
PECTIVE DATA FILES* AND THE FILES ARE SAVED. ttt 

ttt 

IMPORTANT variables; m 

Kli: VECTOR OF LINEAR FEEDBACK TENSORS. THE VALUES ttt 

FOR THIS ARE READ FROM XI I > DAT* A FILE CREATED ttt 
BY THSCLC. ttt 

K2BI. VECTOR OF QUADRATIC FEEDBACK TENSORS. ITS VAL- ttt 
UES ARE READ FROH K2SI.DAT f COMPUTED BY THSCLC. ttt 
K3SI5 THIRD ORDER FEEDBACK TENSORS FROM K3SI.DAT; CON- ttt 
PUTEU BY THSCLC. ttt 

UN* QUAD* THRD I THE DATA PUT INTO LINX.DAT* QUADX, QAT*ttt 
AND THRPX.DAT. FOR THE LINEAR* QUADRATIC* AND ttt 

THIRD ORDER REGIONS OF USEFULNESS* RE3PEC- tit 

TIVELY. EACH VECTOR CORRESPONDS TO ALL PUS- ttt 

SIDLE VALUES OF XU) FOR FIXED VALUES OF XC>). ttt 
X{ THE STATE VECTOR. TUTS IS USED TO INPUT DIFFERENT ttt 
INITIAL CONDITIONS INTO XCALG . ttt 

INDDX J THREE DIHEN8I0HAL LOGICAL VARIABLE, THE VALUES ttt 
OF THIS VECTOR ARE SET TO TRUE OR FALSE DEPEN- ttt 
DING UPON WHETHER OR NOT PACK INITIAL CONDITION ttt 
IS IN THE REGION OF USEFULNESS FOR LINEAR* ttt 






n 


T 

J 


ORIGINAL PAfc* 

OE POOR QUALVHS 


C*t* QUADRATIC r AND THIRD ORDER FEEDBACK. RFSFEC-- «S* 

CM* TIMELY . *** 

cm m 

C*m**m*m.*mmm*mmmmmmmm*mmmmmwm$W 

CMMMt$*M*mmmmmmmmmmmmmmmftmmtmmm 

DIKEKSIOH JHDERR(3) xX(2) 

LOGICAL INDDX! 3) 

INTEGER L 1 N ( 7 J ) , QUAD (71) » THRU ( 71 ) 

REAL XI I < 400 1 4 ) x K?.S J. ( 400 7 . 4 ) 7 K3S 1(40078) 

OPEN ( UNIT-1 » NAME” 7 K1 1 , DAT 7 x TYPE-'- ' OLD 7 x ACCESS- 7 D I RECT ' r ¥ ORK- 
^FORMATTED' xRECURDSIZE^SxCARRXAGECONTROL^'LIST 7 ) 

OPEN (UNIT 7 - 2 1 NAME- ' K2SI , ))A1 ' r TYPE" 7 01. D 7 x ACCESS- 7 DIRECT 7 . FORM” 

I 'FORMATTED 7 ;REC0RDSIZE»«7> CARRIA6ECI)HTRCH.« , LIST 7 ) 

OPEN ( UNIT= 3» NAME- 7 K3SI . DAT 7 r TYPE- 7 OLD 7 x ACCESS- 7 DIRECT 7 r FORM- 
I 'FORMATTED 7 x RECQRD8IZE-89 x CARRIASECOHTROl* ' LIST 7 ) 

DO 10 Jl=l x4Q0 
J3-501-J1 

REftD<l 7 J3,105MKl](JJxJ2)xJ2«lr4> 

RE AO ( 2 7 J3 x 1 0*4 ) < K 2 S I ( J1 x J 2 ) x ,12 - 1 x 6 ) 

READ(3 7 J3xl0?) (K3S1 (JJ x J2) x J2 S 1x8) 

10 DINT I HUE 

CLOSE<UNrT=-l x DISPOSE- 7 SAME 7 ) 

CLOSE UJN IT -=2 x 0 1 3P0SE= 7 SAM E 7 ) 

CLOSE ( UNI T**3 x I.U 6P0SE- 7 SAME 7 ) 

OPEN ( UNIT-1 x NAME-- 7 l.INX . DAT 7 x TYPE* 7 MEW 7 x ACCESS- 7 DIRECT 7 x 
IR£CQRDSlZE*142xCARRl AGECONTROI.-'LIST 7 uFORH" 'FORMATTED 7 ) 


] 


] 

1 

J 

n 

j 


J 

1 

j 


1 


1 


2 


30 

31 


35 

36 


40 

41 
45 


OPEH< UMIT*2 x NAME* 7 OUADX » DAT 7 x TYPE- 7 NEW 7 x ACCESS* 7 DIRECT 7 x 
1REC0R5S1ZE«1 42 x CARRIAGECONTRCH.- 7 L 1ST 7 r FORM" 7 ¥ ORHATT ED 7 > 
OPEN ( UNIT- - 3 x NAME- - 7 THRDX . DAT 7 x TYPE- - 7 HEW 7 x ACCESS =' D I SEC T 7 x 
1REC0RDSIZE^-I42f CARRJAGECOHTROL-'LJST 7 rFORH- 'FORMATTED 7 ) 


DO SO Jl-txAl 


DO 45 J2--'lx71 


X ( 1 ) «FLOAT ( J2-4 1 > /1 0 ► 


X ( 2) r -FLOAT( 31 -J1 )/J0* 
DO 2 I”lx3 
INDDX ( I ) ” * FALSE ♦ 


CALL XCALC (X x INDDX » I NDE RR x (Cl I r K20T 1 K38 1 ) 

IF(INDDX(1))G0 TO 30 

LIN<J2>* 7 * 7 

GO TO 31 

LIM< J2)= 7 - 7 

IF(IM0DX(2))G0 TO 35 

0UAP(J2>* - - 7 * 7 

GO TO 36 

QUAD(J2)= 7 - 7 

IF(INODX(3))GO TO 40 

THRD(J2>” 7 * 7 

GO TO 41 

THRD(J2)« 7 - 7 

CONTINUE 

CONTINUE 

WRITEd 7 Jit 101)1.1 N 
WR[TE(? 7 JIxl01 )QUAD 
WRITE(3 7 J1 xlOl )THRD 


152 
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TITLE! THULT 

AUTHOR i JOSEPH A, O'SULLIVAN 


L ! T 1 

cm 

cm 

Cl 41 
Ci 44 


SUBROUTINE THULT GENERATES THE TENSOR PRODUCT OF TWO 


Ill- 

Ill 

m 

w 


c m 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 


TENSORS, THE RESULTANT TENSOR HAS DIMENSION EQUAL TO THE PRO- 
DUCT OF THE TWO SENERATING TENSORS, IT IS ASSUMED THAT THE 
TENSORS HAVE CONTRA VAR I ANT COMPONENTS OF THE STATE 
VARIABLE ONLY, IT IS ALSO ASSUMED THAT THE TENSORS ARE NOT 


m 

m 

m 

m 


IN REDUCED SYMMETRIC FORM. 441 

EACH ELEMENT IN C, THE RESULTANT TENSOR i IS A PRODUCT 111 
OF AN ELEMENT FROM A TIMES AN ELEMENT FROM R* ALL POSSIBLE 111 
PRODUCTS OF AN. ELEMENT FROM A AND ONE FROM B APPEAR IN Cr EACH 111 
PRODUCT APPEARING ONCE, LEXICOGRAPHIC ORDERING DETERMINES THE 411 
METHOD OF CHOOSING WHICH PRODUCT IS IN WHICH ENTRY OF C, FIRST 111 


cm 

cm 

lv T £ *v 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

w -r- -T> 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 


THE COVARIANT POWERS OF THE STATE VARIABLE IN B ARE 111 

INCREMENTED* THEN THE COVARIANT POWERS OF THE STATE VARIABLE 111 
IN A 7 THEN THE COVARIANT POWERS OF THE CONTROL VARIABLE— 1*1 

FIRST IN B THEN A— THEN THE CONTRA VAR I A NT POWERS IN B AND A, 111 

m 

CALLING VARIABLES; Ilf 

ft! INPUT TENSOR 41 1 

b: input tensor m 

> C! OUTPUT TENSOR r THE TENSOR PRODUCT OF A AND B 111 

All THE CONTRAVARIANT POWER OF THE STATE 111 

VARIABLE IN A 111 

APi THE COVARIANT POWER OF THE CONTROL VARIABLE IN A 111 

AQ i THE COVARIANT POWER OF THE STATE VARIABLE IN A 111 

Bit THE CONTRAVARIANT POWER OF THE STATE 111 

variable in b m 

BP! THE COVARIANT POWER OF THE CONTROL VARIABLE IN B 111 

Bfli THE COVARIANT POWER OF THE STATE VARIABLE IN B 444 

DIMA! THE DIMENSION OF A 111 

DIMS: THE DIMENSION OF B 111 

Bine; THE DIMENSION OF C 111 

IiIMUl THE DIMENSION OF THE CONTROL VARIABLE 111 

DIMXi THE DIMENSION OF THE STATE VARIABLE 111 

NCALLi A DEBUGGING AID* IF THIS SUBROUTINE IS CALLED 111 
MANY TIMES OVER THE COURSE OF A PROGRAM* THEN 111 
ONE WITH AN ERROR CAN BE UNIQUELY IDENTIFIED 111 
USING THIS VARIABLE. Ill 

114 

IMPORTANT VARIABLES} 111 

NA* NB* NCI THE DIMENSIONS OF A? B* AND C* RESPEC- 441 
TIVELYf AS CALCULATED FROM THE OTHER INFOR- 111 

NATION <BIMU* DIMX* Air AP* AQ* 81* BP* BO.) Ill 

Ji THE ELEMENT OF C WHICH IS BEING CALCULATED AT EACH 111 
STEP 111 

JA* JBt THE ELEMENTS OF A AND Br RESPECTIVELY* WHICH 111 
ARE BEING MULTIPLIED TOGETHER AT EACH STEP 111 


QK«3$NAL 

OR POOR QUALITY 


Cm 

Hi r 

N 2 : 

I HE DIMENSIONS OF THE CONTRAVARIANT PARTS OF 

*** 

CSs: a 



A AND B; RESPECTIVELY 


T 1 1 

cm 

«3f 

N4: 

THE DIMENSIONS Or THE PARTS OF A 

AND Br 

141 

cm 



RLsPECT IVELY; WHICH ARE CO VARIANT 

IN THE 

Wk 

cm 



CONTROL VARIABLE 


*t* 

cm 

NO 7 

No: 

THE DIMENSIONS OF THE PARTS OF A 

AND B; 

TH 




RESPECTIVELY; WHICH ARE COVARIANT 

IN THE 

ttt 

CTYY 



STATE VARIABLE 


*** 

Cm 





nt 


immmnwwtmmmmmmmmmmmmmmmmm***#* 
emu mmmmtt ******** m*******m********************************** 

SUBROUTINE TMULT ( A ; £ ; C r A 1 ; AP ; AQ ; B 1 ; BP ; BQ ; DI H A ; D I KB ; DIMC ; 

1 DIMU # DIMXnNCALL) 


Cm 

cm 

Ci« 

C-fft 

cm 


INTEGER Ai ; AF; AG; EG B1 ; BP; BIHA; DIHBi BIHCi BIMU ? BIMX 
D I .TENSION A<BIMft) iB(BIHE) rC(BIHQ) 


PI RET THE PROGRAM 
POWERS GIVEN AGREE 


CHECKS TO HAKE SURE THAT THE DIMENSION'S AND 
WITH EACH OTHER, IF THEY DISAGREE; TkE 


PROGRAM IS TERMINATED, 


H A =BI MX**( A 1 1 AQ ) * D I H U* * A P 
IF (NA , EQ , DIMA )GQ TO 5 

2 TYPE *»' ERROR IN 1 MULT , DIMS GIVEN DO NOT AGREE; NCALL=' » NCALL 

STOP 

5 NB*DIHX**{Bl+BB)*DIHUmP 

IF(NB*EQ#DIHB)GO TO 10 
GO TO 2 

10 N>NA*NB 

IFf MC, ECUBIMC) GO TO 15 
GO TO 2 

cm: 

G#*# Ml; N2 r N3; N4; N5> AND Ns ARE CALCULATED TO GIVE THE CONTRAVARIANT 

CW AND COVARIANT PARTS' DIMENSIONS FOR A AND B SO THAT THE DO LOOPS 

Cm CAN BE SET UP IN SUCH A WAY AS TO FACILITATE CALCULATING JA AND JB, 

Cm: THE SIX DO LOOPS ARE SET UP SO THAT THEY INCREMENT IN THE SAME 

Cm MANNER AS C, THUS; J IS INITIALLY SET TO ZERO AND THEN INCREMENTED 

Cm EACH TIME THROUGH THE INNERMOST LOOP TO KEEP TRACK OF WHICH 

cm ELEMENT OF C IS BEING CALCULATED AT EACH STEP, A IS INCREMENTED 

Cm IN THE SAME MANNER AS II, 13; AND I5i BUT BECAUSE OF THE OTHER 

cm DO LOOPS IT MUST BE CALCULATED EACH TIME THROUGH THE SECOND LAST 
Cm LOOP. THE LEXICOGRAPHIC ORDERING FOR B IS THE SAME AS THE INCRE- 

C*tt MENTATION BY THE LOOPS FOR 12; 14; AMD IS, JB MUST ALSO BE CAL- 

Cm CULATED EACH TIME THROUGH THE SECOND LAST LOOP; BUT SOME CALCU- 

cm LAIIONS ARE SAVED BY NOT PUTTING THAT CALCULATION INSIDE THE FINAL 

cm loop, 

cm 

15 J»0 

■Nl«DIMXmi 
N.2=DIMX**B1 
N3=BIMU**AP 
N4=BIMU**BP 
N5»0IMX**AQ 
N6*DIMX#*BQ 
DO 20 11=1; N1 


QMQINAS: 

QE POOR QUALilV 

>-c rr'=i;N2 

-t : ; 0 ~ v-l 7 N 3 
i'; ?0 l':~J stln 

; s * ‘ ^3-1) &N5* ili-i; *N5M3 

M 20 16=1 7^6 

J*\l+1 

JB-JB+l 

ct JJ=,:i(JA)j»!B(JB) 

HETURH 


CUM** 

■t ******* 

ORIGINAL PPfM 
OF POOR QUAUTVi 

M*******iM**'*Ti*l ***************************************** 

C Mi r M 

* i i ■?**** 
******** 
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V i' if 

C%*4«4- 

cm 


TITLE! TCGNT 

* 4* 'j> 
*** 

cm 


AUTHOR! JOSEPH A, O'SULLIVAN 

m 

cm 



*** 

cm; 


SUBROUTINE TCGNT PERFORMS CONTRACTIONS ON TENSORS* 

*** 

cm 

IT TAKE 

3 TWO TENSORS t ONE OF WHICH (B) HAS AT LEAST NCONT CON- 

*** 

cm 

TRAVARIANT POWERS OF ONE OF THE VARIABLES (CONTROL OR STATE) r 

*** 

cm 

THE OTHER OF WHICH (A) HAS AT LEAST NCONT COVARIANT POWERS 

*** 

cm 

OF THE 

SAME VARIABLE* CONTRACTS THE TWO OVER THOSE NCONT 

*** 

CM* 

POWERS 

AND THEREBY FORMS C* 

*** 

cm 



*** 

c*** 

CALLING 

VARIABLES! 

*** 

cm 


A! INPUT TENSOR 

*** 

cm 


B5 INPUT TENSOR 

*** 

cm 


C! OUTPUT TENSOR 

*** 

cm 


Al! CONTRAVARIANT POWER OF A 

*** 

cm 


AP ! COVARIANT POWER OF THE CONTROL VARIABLE IN A 

*** 

cm 


AG! COVARIANT POWER OF STATE VARIABLE IN A 

m 

CM* 


ti: Culv i nHvrtRiriri i ruWth ur s> 

***. 

C*** 


BP! COVARIANT POWER OF THE CONTROL VARIABLE IN B 

*** 

cm 


BQt COVARIANT POWER OF STATE VARIABLE IN B 

*** 

c*** 


NCONT! NUMBER OF CONTRACTIONS TO BE PERFORMED 

*** 

c*** 


DIMA! DIMENSION OF A 

*** 

c*** 


DIMS! DIMENSION OF B 

*** 

c*** 


DIMC * DIMENSION OF C 

*** 

c*** 

* 

01 MU ! DIMENSION OF THE CONTROL VARIABLE 

*** 

c*** 


DIMX! DIMENSION OF THE STATE VARIABLE 

*** 

cm 

t 

NTYPE5 TYPE OF CONTRACTION PERFORMED 

*** 

c*** 



*** 


cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

{''kit'k 

Lr •T-'T- '?• 

CM* 

C*** 

cm 
cm 
cm 
cm 
cm 
c m 
cm 
cm 
c*** 


TYPES OF CONTRACTIONS! 

CONTRACTION 
NTYPE OVER 

CONTRAVA- 
RIANT VAR, IN A 

CONTRAVA- 
RIANT VAR. IN B 

■ 1 

X 

X 

X 

2 

X 

U 

X 

3 

U 

X 

U 

A 

U 

U 

U 

10 


- - SPECIAL - - 



HERE* X=STATE VARIABLE^ U=CONTROL VARIABLE 


*** 

m 

m 

m 

*** 

m 

m 

m 

m 

m 

m 


*** 

NTYPE-10 IS GENERALLY USED IN CIRCUMSTANCES WHERE THE CON- *** 

TRACTION IS OVER BOTH CONTROL AND STATE VARIABLES* *** 

THIS IS NECESSARY IN SEVERAL IMPORTANT INSTANCES, IN THIS *** 

CASE > THE FOLLOWING MUST BE DONE* *** 

B1=AQ! THE CONTRACTION IS HONE OVER THIS PART OF THE *** 
TENSORS* OFTEN* THEY ARE EQUAL TO ONE* AND *** 
DIrfU IS EQUAL TO THE DIMENSION OF THE PART THAT *** 
THE CONTRACTION IS DONE OVER* *** 

AP=o m 


ORIGINAL PMiZ i® 
QE POOR QUALITY 


cm* 

cm* 

CM* 

cm 

cm* 

cm* 

cm* 

cm* 

CM* 

CM* 

CM* 

cm* 

cm* 

DM* 

cm* 

cm 

cm* 

CM* 

CM* 

CM* 

CM* 

CM* 

CM* 

CM* 

CM* 

CM# 

CM* 

CM* 

CM# 

CM* 

CM* 

CM* 

CM* 

CM* 

CM* 

CM* 


Al=DIMA/< ARMDIMU) } THIS IS THE PART OF A OVER WHICH Ut 

THE CONTRACTION WILL NOT RANGE * IT INCLUDES M$ 

THE DIMENSION OF WHATEVER CONTRA VARIANT PART *M 
THAT THERE IS TIMES THE DIKENSION OF THE **# 

REMAINDER OF THE COVARIANT PART OVER WHICH #M 


THERE IS NO CONTRACTION * THEN 
DlHX**BQ=DIMB/(DIHU**Bl)t THIS IS THE PART OF TENSOR 
B OVER WHICH THERE IS HO CONTRACTION, MORE 
FREEDOM IS ALLOWED WITH THIS PART IN B THAN A. 
DIMK THIS IS AS NOTED THE DIMENSION OF THE 'VARIABLE ' 
OVER WHICH THE CONTRACTION RUNS, 


D I M A- A 1 * A ITMB I M U , *** 
M* 

m 

*:•:* 


IMPORTANT VARIABLES! 

IDA. i IDBi IDC! 

TIVELY 


THE DIMENSIONS OF A, B; AND C RESPEC- 
WHICH ARE CALCULATED FROM THE OTHER 
INFORMATION GIVEN CDIMUj DIMX; NCONTt Ai; AP> 
AS) Bl» BP f BQ) 

17! DIMENSION OF THE PART OF THE TENSORS - OVER WHICH 
THE CONTRACTION IS DONE 

11*13*15! DIMENSION OF THE PART OF A OVER WHICH THERE 
IS NO CONTRACTION 

12*14*16! DIMENSION OF THE PART OF B OVER WHICH THERE 
IS NO CONTRACTION 
CALCULATED VALUE FOR Air NTYPE=10 
COMPONENT OF C WHICH IS BEINS CALCULATED AT EACH 
STEP 

ELEMENT IN A IN CALCULATION AT EACH STEP 
ELEMENT IN B IN CALCULATION AT EACH STEP 


Ml 


JA! 

JB! 


TCQNT IS A BILINEAR 
A1 B1 

A *B 
APfAQ BP f BQ 


MAPPING FROM < ft r B } TO C! 

\ CA1+B1-NC0NT) 

/ C 

(,)»(♦) 


WHERE THE COVARIANT POWERS IN C DEPEND ON NTYPE, 
t JUST STANDS FOR THE TENSOR PRODUCT. 


*** 

*** 

*** 

*** 

*** 

*** 

*** 

*** 

*** 

*■** 

**# 

*** 

*** 

*#* 

*** 

*** 

*#* 

*** 

*** 

*** 

*** 

nr 

*** 

*** 

*** 

*** 

*** 

M* 


cmm*****.**mmmm******m*mmm**mm**mm*mmmm*mm*m*mm****m 

CM*************** ******************************************* ************** 


SUBROUTINE TCONT (A;B?C; Al ; AP; A$;B1 ;BP ;BQrNCGNT » DIMA; DIME; DIME; DI 
IMUiDIMXiNTYPE) 

INTEGER AIj AF'» AG’Bl f BF'jBQjDIMAjDIMBj DIMCfDIMUfDIMX 
DIMENSION A(DIMA) tB(DIMB) f C(DIMC) 

GO TO (ii2r.37 4) » NTYPE 
IF (NTYF'E.EQ, 10)G0 TO 1000 

TYPE *»' NTYPE WAS TOO BIG) SUB TCONT. NTYPE WAS ' f NTYPE 
STOP 


C*** 

C*** NTYPE- 1 ♦ DIMA AND DIMS ARE CHECKED AGAINST IDA AND IDE) 

CM* RESPECTIVELY; IF EITHER DISAGREES; THE PROGRAM IS TERMINATED 

CM* 

1 IIiA=DIMX**(Al+AQ)*DIMUMAP 

IDB-DIMXM < B1PBQ) *DIMU**BP 
IF ( IDA, EQ. DIMA) GOTO 101 


ORIGINAL PftgE ®' 
OP POOR QUALITY. 


!•? TY E E *?' ERROR If' TCDNT, DIHA WRONG? NTYPE*' iNTYPE 

£ ; or 

101 if .IEH.tQ,DI«B)6C TO 102 

11 Tift ?;?' ERROR TCGNT, BIKE WRONG? H7YPE=' r NTYPE 
1 1 L i : ‘ 

102 If 'NCONT. LE, AG, AND, NCONT, LE.BUGaTQ 103 

12 TYPE *?' ERROR IN SUE TCONT , NCONT TOO LARGE? HTYPE= / fNTYPE 

STOP 

103 17=DIMX**NC0NT 
.15=DIHX**(AQ-NC0HT) 

I2=DIHXM(B1-HC0NT) 

I4=flIHU**BP 

Il=DIHX**fll 

I2=DIMU**AP 

Id=DIHX**BG 

GO TO 500 

2 :DA«DIMX**AQ*DIMUS*<AP+A1> 
l B jj=DI HX** (BlfEu ) *B I MU**BP 
If { IDA. EQ. DIHA) GO T0201 
GO TO 10 

201 IF ( IDE , EQ* DIME) GOTO 202 
GO TO 11 

202 IF ( NCONT, LE, AO. AND, NCONT. LE.B1) GOTO 203 
GO TO 12 

203 I1=DIMU*#A1 
I2=DIHX**<B1-NC0NT) 

I3*BIHU«AP 

I4=DIMU**BP 

I5=BInX**(AQ-NCQNT) 

I6=DIMX**BG 
I?=BIHX**NC0NT 
GOTO 500 

3 IBA=DIMX**A1*DIMU«AP 

4 1BB=DIMU**(BH-BP)*DIMX**BG 

cm 

Cm NTYPE-3 CORRESPONDS TO A CONTRACTION OVER THE CONTROL VARIABLE WITH 

CUt A HAVING CDNTRAVARIANT POWERS IN THE STATE VARIABLE. NTYPEM 

CUX CORRESPONDS TO A CONTRACTION OVER THE CONTROL VARIABLE WITH A HAVING 
C*** CDNTRAVARIANT POWERS IN THE CONTROL VARIABLE, FOR EITHER OF THESE 
Cm TWO TYPES? AG MUST BE ZERO, AFTER CHECKING TO SEE IF THE DIMENSIONS 

C*** OF A AND B AGREE WITH THE OTHER DIMENSIONS? 11-17 ARE CALCULATED 

C*** AND THEN CONTROL OF THE PROGRAM IS PASSED TO LINE 500, 

cm 

IF (NTYPE, £8 , 4 ) IDA=DIMU'M (Al+AP; 

IF ( IDA. EG, DIMA) GOTO 301 
GO TO 10 

301 IF (IDE, EG, DIMS) GOTO 302 
GO TO 11 

302 IF ( NCONT, LE.AP, AND, NCONT, LE.Bl) GOTO 303 
GO TO 12 

303 1 7 =D I M U C 0 NT 
IF(NTYFE,EG,3)I1=DIMX**A1 
I F ( N T Yf'E , £8 , 4 ) 1 1=B I M U'M: A 1 
I2=DIMU**CB1-NC0NT> 

I3=DIMU't# { AP-NCQNT ) 


160 


cm 

Zi ** 

cm 
cm 
cm 
cm 
c m 

500 


50i 

500 


505 

cm 

cm 

cm: 

cm 

cm 

cm 


J m 

if, lil;tX**BQ 

IF $ AM, F .2 ♦ CO GOTO 500 

i r. L t * ERROR 2UB rCO.NT . 

STOP 


ORIGINAL P*^*JLL 
OF. POOR QUAt-O’i- 


LINE 


AQ SHGULB BE 0? NTYFE=’ jNTYPE 


AFTER CHECKING THE DIMENSION OF THE THIRD TENSOR AGAINST THE DIMEN- 
SIONS GIVEN FOR A AND Ei THE OUTPUT TENSOR IS CALCULATED. THE DO 
LOOPS ARE SET UP SO THAT THE FIRST SIX INCREMENT IN THE SAME MANNER 
AS C, THE LAST DO LOOP RANGES OVER THE DIMENSION OF THE PART OF 
THE TENSORS WHICH IS BEING CONTRACTED, J IS INITIALIZED AT ZERO 
AND THEN INCREMENTED EACH TIME THROUGH THE SECOND LAST DO LOOP, 

IBC=I 1*12*13*14*15*15 
IF < IDC, EG , DIMOGQTG 501 

TYPE ■ ERROR SUB TCONT - LINE 500, DIM THIRD TENSOR WRONG f NTYFE='» 
NTYPE 
STOP 
J=0 

DO 502 K-l jDIMC 
C{K)=0,0 
DO 505 

DO 505 J2=i?I2 
DO 505 ,J3=1 j 13 
DO 595 J4=l f 14 
DO 505 J5=l ? 15 
DO 505 J6=ii 16 
J=JH 

DO 505 J7=l j 17 

JA=J7FI?$(J5-HI5*(J3-liI3*< Ji-1 ) ) ) 

JB=J6tI£*(J 4-1+I4*( J2 - lrI2*( J7-1) 5 5 
C(J)=C(JJ+A< JA)*B(JB; 

RETURN 

NTYPE=10 IS THE SPECIAL TYPE OF CONTRACTION j USED OFTEN WHEN THE 
CONTRACTION IS OVER A COMBINATION OF STATE AND CONTROL 
VARIABLES, FIRST > THE CONDITIONS FOR USING MTYPE=10 MUST BE 
SATISFIED, AS NOTED AT THE BEGINNING OF THIS PROGRAM t THESE 
INCLUDE! AP=9» AG=B1j Bp=0» A1«DIHA/DIMU**AQ> BQ**rirMX=DIMB/DIMU#*Bl 


C*** THE DIMENSION OF C IS THEN CHECKED AGAINST THE OTHER INFORMATION 

Cm GIVEN TO MAKE SURE IT AGREES. IF ANY OF THESE CONDITIONS ARE 

Ctt* VIOLATED » THEN THE PROGRAM IS TERMINATED, THERE ARE SOME THINGS 

cm WHICH THIS PROGRAM ASSUMES WHEN IT CALCULATES C FOR NTYPE=10. 

cm I HE BIGGEST ASSUMPTION IS THAT THE METHOD OF INCREMENTING THE 

cm BASIS ELEMENTS IN C WILL BE TO INCREMENT THOSE THAT COME FROM 
C*« B FIRST i THEN INCREMENT THOSE THAT COME FROM A, THIS DOES 

cm NOT POSE A PROBLEM IN GENERAL i BECAUSE USUALLY ALL OF THE CONTRA- 
CT** VARIANT POWERS OF B OR ALL OF THE COVARIANT POWERS OF A ARE INVOLVED 

C*** IN THE CONTRACTION. IF BOTH OF THESE ARE NOT TRUEp THEN THE 

C*« TENSOR WHICH IS CALCULATED HERE WILL HAVE TO UNDERGO SOME PERMUTATION 

Dm TO OBTAIN THE CORRECT TENSOR WHICH WILL HAVE ITS BASIS ELEMENTS 
Cm IN THE STANDARD ORDER, 
cm 


QRiGtWAL & 

OF POOR QUALITY 


161 


100<: LF , AF.NE*0)£BT0 1100 

ll-iftft.Nt.BDBOTO 1100 
IV ■ BP. rfi:.&)6G70 1.100 

>tl = LFIX(FLOAT(DIHftJ/FLOAT{DIHU**AQ> + *OOa) 
ji < fil , fit* ril )60 TO 1200 
.-.Oo:; DU 1001 J=1 * DlliC 

£001 '2vJ)=0t0 

cm 

Ut ;* J 21 LL NOU KEEP TRACK OF WHICH ELEMENT Or C IS BEING COMPUTED AT 

C*** EACH STEP THROUGH THE DO LOOPS, THE FIRST TWO DO LOOPS ARE SET UP 

C*l* SO IHAT THEY INCREMENT IN THE SAME WAY AS C > THUS J IS SET TO ZERO 
C*U AND IS INCREMENTED EACH TIME THROUGH THE SECOND DO LOOP, 
cut 

j=o 

DO 1010 Ji=l r hi 

DO 1010 J2=lfDlHX**£0 

J~Jt1 

.HO 1010 J3=liDIHU**Bl 
JA*< J1-J.)CDIMU**AQ+J3 
JB=<J3-l>*DIhX**BQ+J2 
1010 C(J>=C<J)+A('JA)*F(JB) 

RETURN 

HOC TYPE THE DIMENSIONS IN TOO NT ARE NOT CORRECT FOR NTYPE=10.' 

STOP 

1200 TYPE ERROR SUB TCONT, A1 IS WRONGi NTYPE= 10, ' 

STOP 

END 


cnnmnnnnnnnnnmnnnntntntMttntnnmnnn 
ctnMtnnttwtutnttnutntuw ii ntwnwtntunnntu* 
cnntnnntMnnnmnmmm mmmmnnm ********** 
cnt 

title: TC0NT1 

AUTHORS JOSEPH A . O'SULLIVAN 
DATE! SEPTEMBER > 1783 


cnt 

cm 

Cm 

cnt 

cm 


SUBROUTINE TC0NT1 IS 


tntttnttt 
ntnuutt 
*********** 
m 
m 
m 

ttt 
t.%% 

ALMOST IDENTICAL TO SUBROUTINE %%% 


cut TCONT. THE ARGUMENTS FOR THIS SUBROUTINE ARE EXACTLY THE SAME *** 

Cm' AS THOSE FOR TCONT EXCEPT FOR NTY AND 3CAL . THE DIFFERENCES *** 

cm are; *** 


cm 

cnt 

cm 

cnt 

cm 

cm 

cnt 

cnt 

cm 

cm 

cm 

cm: 

cm 


NTY J NTY CAN BE LESS THAN ZERO. THE ABSOLUTE VALUE OF ttt 
NTY DETERMINES THE TYPE OF CONTRACTION PERFOR- ttt 
MED, IF NTY. IS LESS THAN ZERO? THEN THE OUTPUT ttt 
TENSOR IS NOT SET TO ZERO BEFORE .THE CONTRAC- ttt 
TIGN IS PERFORMED. THUS? THE RESULTING TENSOR *** 
WILL BE THE SUM OF THE OUTPUT TENSOR'S ORIGINAL m 
VALUE PLUS THE VALUE OF THE RESULT OF THE CON- Ut 
TRACTION. m 

SCAL! THIS IS A SCALAR WHICH CAN MULTIPLY THE RESULT *** 

OF THE CONTRACTION. IT MULTIPLIES THE RESULT tt* 

BEFORE IT IS ADDED TO THE OLD VALUE OF THE ttt 

OUTPUT TENSOR, SO IF NTYCO THEN ttt 

C=C+SCAL*AfiB, *U 


cm 

cm 

cm 


IF SCAL=1 AND NTY>Of THEN THE RESULT OF USING *** 
TC0NT1 WILL BE THE SAME AS USING TCONT. Ut 

m 


cnttttttntnnttnttttttnnttnttntttttnttttmttntttntttttttttttttt 


cnnttttttttnttntttttttntnnntttntttntnntntttttttttttttnttttn* 

0 ^ ^ ^ ^ ^ j|r ^ j|t ^ |^p ^ ^ ^ ^ ^ ^ j|. j|r ^ j|r j|^ ^ ^ ^ j|^ ^ jL ^ ^ 1 ^ 


SUBROUTINE TCONTK A:B »C» A1 »AP» AGf B1 ? BP* BG f NCONTf DIHA r BIMB fIUMCfBI 
lhiUf DIMXf NTY » SCAL) 

INTEGER A1 1 AP f AO? B 1 > BPrBQ : DIMA f DIMS jDIMC 7 DIMU> DIMX 
DIMENSION A<DIHA)fB(BI«S>fC(BIMC) 

NTYPE=IABS(NTY 5 

GO TO ( 1 f 2 f 3f 4 ) fNTYPE 

IF (NTYPE. EG. 10 5 GO TO 1000 

TYPE *f' NTYPE WAS TOO BIG? SUB TCONT. NTYPE WAS 'fNTYPE 
STOP 

cnt 

Cm NTYPE=1 , DIMA AND DIMB ARE CHECKED AGAINST IDA AND IDBt 
C*** RESPECTIVELY? IF EITHER BISAGREESf THE PROGRAM IS TERMINATED 

cm 

I IDA=BIMX**(A1tAQ>*DIMU**AP 
IBB=BIMX**(B1+BG)*DIMU**BP 
IF ( IDA * EG. .DIMA) GOTO 101 

10 TYPE ERROR IN TCONT, DIMA WRONGf NTYPE=' fNTYPE 

STOP 

101 IF (IDB. EG .DIMB) GO TO 102 

II TYPE *f ' ERROR TCONT, DIMB WRONGf NTYPE=' fNTYPE 

STOP 

102 IF(NC0NT,LE,AQ,AND,NC0NT,LE.B1)G0T0 103 
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12 

103 


201 

202 

203 


3 

4 

CW 

CS#* 

ctm 

C*** 

C*** 

cm* 

c*** 

cm 


301 

302 

303 


TYPE tf' ERROR IN SUB TCQNT, NCONT TOO LARGE* NTYPE- ' /NTYPE 
STOP 

I7=DIMX«NC0NT 
I5=DIMX**<AQ-NC0NTi 
I2=DIHX**(B1-NCQH1 < 

I4«DfMU**BP 
Il=DIfiX**Al 
I3=DIMU*#AP 
I6=B[MX**BQ 
GO TO 500 

I DA=Ti IHX**AQ W I MU** ( AP+A 1 ) 

IDB=DIHX**lBi4BQ>*DIHU**BP 
IF( IDA f EQ< DIMA) GD T0201 
GO TO 10 

IF ( IDE * EQ , B IMB ) GOTO 202 
GO TO 11 

I F { NCONT , LE , AQ . AN 0 , NCONT . LE . Bi ) GOTO 203 

GO TO 12 

I1=DIMU**A1 

I2=BIHX**(B1-NCQNT> 

I3=HIMU**AP 

H»DIMU**BP 

I5=DIHX**(AQ-NC0NT) 

I6=DIMX*#BG 
I7=DIHX**NCDNT 
GOTO 500 

IDA=DIHX**A1JDIMU»*AP 

IDB=DIHU**{B14BP)*DIMX**BQ 

MYPE=3 CORRESPONDS TO k CONTRACTION DUES THE CONTROL VARIABLE WITH 
A HAVING CONTRA VARIANT POWERS IN THE INDEPENDENT VARIABLE * NTYPE-4 
CORRESPONDS TO A CONTRACTION OVER THE CONTROL. VARIABLE WITH A HAVING 
CQNTRAVARIANT POWERS IN THE CONTROL VARIABLE, FOR EITHER OF THESE 
TWO TYPES* AR MUST BE ZERO, AFTER CHECKING TO SEE IF THE DIMENSIONS 
OF A AND B AGREE WITH THE OTHER DIMENSIONS* 11-17 ARE CALCULATED 
AND THEN CONTROL OF THE PROGRAM IS PASSED TO LINE 500, 


OStti&CV., • * ■ 

of {poor* ^ 


IF ( NTYPE , ES , 4 >IBA=DIMU** C Al+AP) 

IF( IDA , EQ, DIMA) GOTO 301 
GO TO 10 

IF (IDE ,EQ,D IMP) GOTO 302 
GO TO 11 

IF ( NCONT , LE , AP , AND , NCONT , LE , Bl ) GOTO 303 

GO TO 12 

I7=BIMU**NCQNT 

IF ( NTYPE, Ea.3)Il=DIMX**Al 

IF(MTYPE,ER.4)I1=DIMU**A1 

1 2=D I'tfU** ( B 1-NCQNT ) 

I3=BIMU**(AP-NC0NT> 

I4=DIM0**BP 

15=1 

IA*>DINX**BQ 

IF( AR , EQ« 0) GOTO 500 

TYPE #»' ERROR SUB TCQNT > LINE 303, AR SHOULD BE 0/ NTYPE-' iNTYPE 
STOP 
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Gv 


cm 

cm 

Cl: ft 

cm 

cm 

cm 

cm 

cm 

500 


501 


502 

503 


50.5 

cm 

cm 

cm 

cm 

c### 

cm 

cm 

cm 

c-m 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

Cm 

C***' 

cm 

cm 

1000 


AFTER CHECKING THE DIMENSION OF THE THIRD TENSOR AGAINST THE DIMEN- 
SIONS GIVEN FOR A AND Bt THE OUTPUT TENSOR IS CALCULATED. THE DO 
LOOPS ARE SET UP SO THAT THE FIRST SIX INCREMENT IN THE SAME MANNER 


Hi 


S C. THE LAST DC LOOP RANGES OVER THE DIMENSION OF THE PART OF 


THE TENSORS WHICH IS BEING CONTRACTED, J IS INITIALIZED AT ZERO 
AND THEN INCREMENTED EACH TIME THROUGH THE SECOND LAST DO LOOP, 


IDC=I1*I2*I3*I4*I5*W 
IFflDC.EQ* WHO GOTO 501 

TYPE *»' ERROR SUB TCQNT , LINE 500* DIM THIRD TENSOR WRONG, NTYPE ?/ » 

£ NTYPE 
STOP 
>0 

IF ( NTY * LT * 0 ) GO TO 503 
DO 502 K=1 , DIMS 
C(K)=0 * 0 
DO 505 J1=1,I1 
DO 505 J2»lfI2 
DO 505 J3=l j 13 
HO 505 J4*lrI4 
DO 505 J5=l j 15 
DO 505 1 * 14 

J=JU 

DO 505 J7bI,I7 

JA=J7+I7*(J5-i*I5#<J3-l+r5*(Jl-i)>) 

JB«J6+I6*CJ4-li-I4*( J2-lfI2*(J7-l))> 

C ( J ) =C ( J ) +3CAL*A ( J A ) *B < JR > 

RETURN 

NTYPE=10 IS THE SPECIAL TYPE OF CONTRACTION* USED OFTEN WHEN THE 
CONTRACTION IS OVER A COMBINATION OF INDEPENDENT AND CONTROL 
VARIABLES* FIRST, THE CONDITIONS FOR USING NTYPE=10 MUST BE 
SATISFIED* AS NOTED AT THE BEGINNING OF THIS PROGRAM, THESE 
JCLUDE: AF-Of AR=B1 , BP=0, A1=WMA/DIHU**AR» BQ**DIHX=DIMB/l)IMUmi 

THE DIMENSION OF C IS THEN CHECKED AGAINST THE OTHER INFORMATION 
GIVEN TO HAKE SURE IT AGREES* IF ANY OF THESE CONDITIONS ARE 
VIOLATED', THEN THE PROGRAM IS TERMINATED* THERE ARE SOME THINGS 
WHICH THIS PROGRAM ASSUMES WHEN IT CALCULATES C FOR NTYPE =10* 

THE BIGGEST ASSUMPTION IS THAT THE METHOD OF INCREMENTING THE 
BASIS ELEMENTS IN C WILL BE TO INCREMENT THOSE THAT COME FROM 
B FIRST, THEN INCREMENT THOSE THAT COME FROM A* THIS DOES 
NOT POSE A PROBLEM IN GENERAL, BECAUSE USUALLY ALL OF THE CONTRA- 
VARIANT POWERS OF B OR ALL OF THE COVARIANT POWERS OF A ARE INVOLVED 
IN THE CONTRACTION. IF BOTH OF THESE ARE NOT .‘RUE, THEN THE 
TENSOR WHICH IS CALCULATED HERE WILL HAVE TO UNDERGO SOME PERMUTATION 
TO OBTAIN THE CORRECT TENSOR WHICH WILL HAVE ITS BASIS ELEMENTS 
IN THE STANDARD ORDER, 


IF (AP.NE.OGOTO 1100 
IF £ AO* NE . B1 > GOTO 1100 
IF (BP . NE *0)0010 1100 

M1=IFIX( FLOAT ( DIMA ) /FLOAT ( BIMUMAQ ) + * 001 ) 
IF( A1 ,NE* Ml ) GO TO 1200 
IF (NTY *LT *0)G0T0 1003 
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1002 

1001 

cm 

cm 

cm 

cm 

cm 

cm 

1003 


1010 


1100 

1200 


i.o iooi j=i t nine 
C(J)*0.0 


OSKSC. i'V'Au '0 
Og POOR QJJteLi'* V’ 


J MILL NOW KEEP TRACK OF WHICH ELEMENT OF C IE BEING COMPUTED AT 
EACH STEP THROUGH THE DO LOOP?, ’HE FIRST TWO HO LOOPS ARE 
SO THAT THEY INCREMENT IN THE £&« HAY AS Ct THUS J IS SET I 
AND IS INCREMENTED EACH TIME THROUGH THE SECOND DO LOOP, 


J=0 

DO 1010 Jl=l : Ml 

DO 1010 J2«'1»DIMX**.BQ 

J=J+1 

DO 1010 J3“J»DIMU**B1 
JA*<J1-1)*DIHU**AQ+J3 
JB=(J3-1)*BIKX**BD+J2 

c<j)=c(J)+scalta(ja)*b-:jb) 

RETURN 

TYPE %>’ THE DIMENSIONS IN TCONT ARE NOT CORRECT FOR NTYF‘E-10 * ' 
STOP 

TYPE *»' ERROR SUB TCONT. A1 IS WRONG. NTYPE=iO.' 

STOP 

END 


eft o 
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44 * 

T I7L£: TADD ttt 

44* 

SUBROUTINE TADD ABBS TENSOR A TO TENSOR B AND GETS C, ttt 
C CAN BE EITHER TENSOR A OR B OR A THIRD TENSOR, *** 


ZtU VARIABLES l Ut 

Cm A AND Bi INPUT TENSORS ttt 

CXt* c; OUTPUT TENSOR ttt 

GUI BIHA! THE DIMENSION OF A.- Sr AND 0 ttt 

cm ttt 

ci-utnunntttttttnttttittntttttittttnttntutttnttttttnttufittttu 

iiit- f tttttttttt 

it-i *n$nttntunnnnnttnttttttnnntuttttnnitntnnntnnnttt 

SUBROUTINE TADD ( Af B r 0 1 DIHA ) 

INTEGER BIHA 

B IK ENSIGN A < DIMA).' B t B I K a ; ? C • D I H A ) 

DO I I=irDIHA 
i Cil )=A<I) tB{I) 

RETURN 

END 
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»•< i t t "t l i i % % t i i & * * i i r (- - i 1 i i I t * t 1 f - t f t i i ?. I '(■ i '{■ 'f i U t f l ;■ i f. I .f I i -f f 1 i t I i i f i T I I 
C-; i> ?■- 1 m ii4 mi i-im. # ili*- K-f -r i t ii U-Utiili-Utmin tiit'i tit 1 M-itit-i-iitti 


w »•;')• 

C i i i 

cm 

Ciil 

L i 'T- -F* 

Cf’fci 

cm. 

cut 

cm 

c;m 

cm 

cut 

Cm 

Ciii. 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm. 

cm 


title; runge 

ADAPTED BY! JOSEPH A. O'SULLIVAN 

SUBROUTINE RUNGE IS A FOURTH ORDER RUNBE-KUTTA INTE- 
GRATION ROUTINE. IT MUST BE CALLED FOUR TIMES . BEFORE EACH 
CALL- THE DERIVATIVE MUST BE CALCULATED. 

CALLING VARIABLES*. 

N! DIMENSION OF Y AND F 

Y; VECTOR WHICH IS BEING INTEGRATED 

FI DERIVATIVE Or Y WITH RESPECT TO X 

XT INDEPENDENT VARIABLE 

H*. INTEGRATION STEPSIZE FOR X 

M: INTEGER BETWEEN ONE AND FOUR FOR WHICH CALL IT IS 

IMPORTANT VARIABLES! 

ZZZ2; THE LARGEST SIZE VECTOR WHICH CAN BE INTEGRATED 

phi: kutta'S coefficients 

savey; the initial y is stored in this VECTOR 

THE RUNGE-KUTTA EQUATION IS ! 

Y ( X+H } =Y ( X J K F 1 *2*F2*2*F3+F4 5 *H / 6 
where; 

Fl=F(Xf Y(X) ) 

F2=F(X+H/2j Y £X)+H*Fl/2> 

F3=Ft XFH/2 ? Y ( X > +H*F2/2 ) 

F4»F(X+H*YtX)+H*F3> 


Ut 

ttt 

tit 

Ut 

tit 

Ut 

nt 

nt 

nt 

ut 

tit 

tit 

ut 

ut. 

ut 

ut 

m 

■m 

nt 

ut 

ut 

ut 

ut 

ut 

ut 

f + * 

'T-T.'T* 

ut 

nt 


CtitttttttUtttttttttitMttUttttttitttttttttttttttttttitttttittttttttttttt 
SUBROUTINE RUNBE < N » Y ? F r X f H r M ) 

PARAMETER ZZZZ=I2S 

DIMENSION PHI ( ZZZZ ) ? SAVE Y ( 2121) t Y ( N ) .• F (N ) 

IF(M*GT.4)G0T0 6 
IF(M . LT . 1 ) GOTO 6 
GOTO <2»3r4»5)rM 


cm 

cm 

cut 

cut 

cm 


ON THE FIRST PASS? F=F1, . Y IS SAVED? FI IS SAVED? X IS 
INCREASED BY ONE-HALF OF Hr AND Y IS INCREASED BY H*F/2» 
IS NECESSARY TO CALCULATE F2. 

DO 22 J=1 7 N 
SAVEY (J5=Y(J; 

PH I ( J ) =F ( J ) 

Y ( J) =SAVEY v J > + 0 * 5$H YF ( J ) 

X-X+0 . 5*H 
RETURN 


THIS 
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CTl'f 

cm 


CWt 

m* 

cm 

cm: 

A 


44 


Cm: 

cm 

cut 

CM* 

CM:* 


CM* 

cm 

cm 

cm 


I HE SECOND PASS STARTS HERE. 
LATE F3 . 


F=F2j AND Y IS CHANGED TO CALCU- 


DO 33 2=1? N 

PHI ( J) - P HI ( J) f2. OLF ( J) 

Y { J > =SftVE T ( JKQ » 5*H*F t J ) 

RETURN 

THE THIRD PASS STARTS HERE. F=F3? Y AND X ARE BOTH CHANGED TO 
CALCULATE F4 . 

DO 44 J=1 ? N 
PHI(JJ»PHI(2)+2.0tF(J) 

YU)=BAVEY(J)+H#F(J) 

X=XfO,5*H 

RETURN 

THE FOURTH AND FINAL PASS STARTS HERE, F=F4? AND THE NEXT 
VALUE OF Y IS CALCULATED FROM THE STORED VALUES OF F AND 
FROM THE INTEGRATION STEPBIZEi H, 

DO 55 J=1 > N 

Y ( J ) = S A V E Y < J ) t < P H I ( J KF ( J ) ) * H / 6 , 0 
RETURN 

IF H IS NOT IN THE RANGE ONE TO FOUR? THEN THE FOLLOWING ERROR 
IS TYPED, 

TYPE 6c 

FORMAT { ' ERROR IN RUNGE, ft IS NOT BETWEEN 1 AND 5') 

STOP 

END' 
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TITLE} SHULT 


n* 

cm 



m 

cm 

THIS SUBROUTINE PERFORMS SCALAR MULTIPLICATION 

OM 

m 

zti-t 

TENSORS * THE RESULT IS RETURNED TO THE CALLING PROGRAM 

IN 

m 

cm. 

THE ORIGINAL TENSOR, 



u % -i 

cm 

VARIABLES ! 


tit 

C*44 

At THE TENSOR OF DIMENSION DIMA 


m 

Cm 

St THE SCALAR BY WHICH A IS MULTIPLIED 


m 

Cm 
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ctz*MMMMM**n**ntn*nMttnwtnttttuntutMMMt*n**tnunun* 
cKMUthtnnnttnuntnnnnnnnnnntnMnnnnnnnwnnnn 
SUBROUT I HE SMULT < A r DIM A i S J 
INTEGER BIHA 
DIMENSION A(DIMA) 

DO i 1=1 ; BIHA 
A(I)=A<I)*S 
RETURN 
END 


1 


cntutnnutnntnnntntnMtutnntnntnnutunt 

cutuuMUUMunntnnuktntttnntktnnttnntkttti 

UttUtn 
n nut n 

n 

f i i 

Hit 

i t * 1 
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nuutn 

nt 

tut 


cm tn 

CUt TITLE! TRANS %%% 

C*** AUTHOR! JOSEPH A * O'SULLIVAN m 

cut nt 


CUt THE SUBROUTINE TRANS PERF0H3 TRANSPOSITION OF TENSORS, *** 
C*** TRANSPOSITION OF TENSORS INVOLVES THE SIMULTANEOUS RAISING OF Ut 
C*** A COVARIANT POWER AND LOWERING OF A CONTRAVARIANT POWER, THE U t 
CUt RESULT OF TWO CONSECUTIVE TRANSPOSITIONS IS THE ORIGINAL TEN- Ut 
cm SOR. SINCE THIS PROGRAM IS FOR COMPUTATIONAL PURPOSES, IT IS Ut 
C*** ASSUMED THAT PRIOR TO THE CALLING OF THIS PROGRAM ALL OF THE ttt 
CUt CONTRAVARIANT POWERS ARE OF THE SAME VARIABLE, THUS, UNLESS Ut 
Cm THE ORIGINAL TENSOR HAS NO MORE THAN ONE COVARIANT POWER, THIS m 
C *** SUBROUTINE CANNOT BE USED TO VERIFY THE FACT THAT TWO TRANSPO- m 


C*** SITIONS RETURN THE ORIGINAL TENSOR, THE MAPPING FROM B TO B.T *** 
CtU IN GENERAL IS! tU 
CU* B1 1 » B X — I nt 

cut B > BT Ut 

Cut BP- BQ i ; BP~i j Bfi Ut 
CtU. W 

C*** INPUT variables: m 

CtU BJ THE ORIGINAL TENSOR U% 
cm BTi THE TENSOR OBTAINED FROM THE TRANSPOSITION Ut 
CtU El! THE CONTRAVARIANT POWER OF B tU 
C*** ( BP! THE COVARIANT POWER OF THE CONTROL VARIABLE OF B Ut 
CUt ] BP! THE COVARIANT POWER OF THE INDEPENDENT VARIABLE Ut 

cut ; of b m. 

cut ! DIMBt THE DIMENSION OF B AND BT Ut 
CUt DIMU: THE DIMENSION OF THE CONTROL VARIABLE *** 
CUt DIMX: THE DIMENSION OF THE INDEPENDENT VARIABLE *** 

ctu ntype: the type of transposition performed nt 

CtU ttt 
cut TYPES OF transposition: nt 
ctu 'NType^i: the tensor b has a contravariant power of nt 

cut THE INDEPENDENT VARIABLE Ut 
cut NTYPE=2t THE TENSOR B HAS A CONTRAVARIANT POWER OF *** 
CUt THE CONTROL VARIABLE, BP MUST BE ZERO IN THIS Ut 
CUt CASE* AND THE RESULTING TENSOR, BT, WILL HAVE Ut 
CUt ONE COVARIANT POWER OF THE CONTROL VARIABLE Ut 
CUt AND BQ-1 COVARIANT POWER OF THE INDEPENDENT Ut 
CUt VARIABLE. Ut 

cut ttt 

CUt IMGRTANT VARIABLES, Ut 
CUt N: THE DIMENSION OF B AS CALCULATED FROM THE OTHER Ut 
CUt INFORMATION (DIMENSIONS OF THE CONTROL AND Ut 
CUt INDEPENDENT VARIABLES, NTYPE, AND Bl, BP, BR) Ut 
CU* J1J THE ELEMENT FROM B WHICH IS BEING MAPPED TO AN Ut 
CUt ELEMENT FROM BT AT EACH STEP *** 
CUt THE ELEMENT FROM BT TO WHICH THE ELEMENT FROM B IS Ut 
CUt BEING MAPPED AT EACH STEP Ut 
CUt Nil THE DIMENSION OF THE PART OF THE TENSOR WHICH IS Ut 


CONTRAVAEIANT IN BOTH B AND BT 
THE DIMENSION OF THE PART OF THE TEH; 
COvARIANT IN BOTH B AND BT 


■R UHICH IS 


C*** 

cm was 

cm 
cm 

c;mmmmmmmmm**mmmmmmmmmmmmmm 

CM-tM 
C mtt 


jcmmmmtmms 

I: MM: * * MM * * # <: <: TT * M 


MMMMM* 


MMM:M*M*MM:*MM* 


************* 


Mt 

I'M 

m 

*M 

m 

m 


cm 

cm 

CM* 

cut 


SUBROOT I HE TRAN3 ( B i BT » B 1 1 BP > BQ j DIMS , DIHU j IU HX , NTYPE ) 

INTEGER BQiBliBPiDIKB ? DIMU, DIMX 
DIMENSION B(DIMB) , BT(DIMB) 

FIRST DIME IS CHECKED AGAINST THE OTHER DIMENSIONS TG MAKE SURE 
THAT THEY AGREE. IF THEY DISAGREE THE PROGRAM IS TERMINATED. 

H=DINX**BG*DIMUt*BP 


IFfNTYPE . EG .2) N=N*BIMU**B1 
IF(NTYPEiEQ.l) N=N*DIHX*tBl 
IF (N.EQtDINB)GQ TO 1 
TYPE 101, NTYPE 
STOP 

1 GO TO <2, 50), NTYPE 

cm 

cm IF NTYPE=1 , BP AND Bi MUST NOT BE ZERO* IF EITHER HERE ZERO? THEN 

C*** THERE HQULB BE NO COVARIANT POWER OF THE CONTROL VARIABLE TO RAISE. 

C*** IF BP=0 OR B1=0» THE PROORAM IS TERMINATED. 

cm 

2 IF(BP.NE.O) GO TO 10 

TYPE 1 04 r NTYPE 

STOP 

10 IF(Bl.NE.O) GO TO 20 

TYPE 111 , NTYPE 
STOP 

C*M 


C*** NEXT J IS INITIALIZED, AND N1 AND N2 ARE CALCULATED. NOTE THAT 

C*** S‘ CE ONE CQNTRAVARIANT POWER IS LOWERED, THE DIMENSION OF THE 

CM* F n j T OF THE TENSOR WHICH IS C6NTRAVRIANT FOR BOTH B AND BT IS 

C**:* DIMXmBi-1), SIMILARLY, THE DIMENSION OF THE PART OF THE TENSOR 

C*** UHICH IS' COVARIANT FOR BOTH TENSORS IS THE DIMENSION OF THE COVA- 

CM* RIANT PART DIVIDED BY DIMU, 

cm 


20 J=0 

Nl=DiMXWBl-l) 


N2=DIHX**BB*BIHU**(BP-i) 

Cm 

Cm THE NEXT PART DOES THE ACTUAL ASSIGNMENT OF VALUES TO BT. THE 

Cm ORDERING OF BASIS ELEMENTS IS ALWAYS LEXICOGRAPHIC. N2 CORRES- 

cm PONDS TO THE NUMBER OF CONSECUTIVE TIMES THE LEXICOGRAPHIC INCRE- 
C*** MENTATION IS THE SAME FOR BT AS FOR B. Ml CORRESPONDS TO THE 
C*** NUMBER OF TIMES THAT INCREMENTATION IS THE SAME IN A DIFFERENT 

C#** PART OF THE TENSOR. II AND 13 WILL BE INCREMENTED FROM ONE TO 

CM* DIMU AND DIMX RESPECTIVELY. THEY EACH CORRESPOND TO THE INCREMEN- 

C*** TATION OF ONE BASIS ELEMENT, SPECIFICALLY, THEY ARE THE BASIS 

C**» ELEMENTS WHICH CHANGE PLACES IN THE MAPPING. THUS, THERE ARE 

C*** IN EFFECT FOUR PARTS WHICH MUST BE ORDERED LEXICOGRAPHICALLY, 

CM* IN BT, THE FIRST PART TO BE INCREMENTED IS OF DIMENSION. N2» THE 


cm SECOND OF DIMENSION DIMX? THE THIRD Nl? THE FOURTH DIHU • IN B? 
QtU THE ORDER IS N2? DIHUi Nl» DIMX. SINCE THE FOUR LOOPS ARE 

Cm INCREMENTED EXACTLY AS THE FOUR PARTS OF BT ARE ? INCREMENTING 

C*U J BY ONE AT EACH STEP HILL KEEP TRACK OF THE ELEMENT OF BT 

C*** THAT IS BEING MAPPED TO. THE ELEMENT OF B THAT MAPS TO THAT 

cm ELEMENT OF BT IS DETERMINED BY REORDERING THE BASIS ELEMENTS IN BT 
C*** BACK TO THE ORDER OF THE ELEMENTS IN B, EFFECTIVELY THIS IS 
C**# DONE WITH J1 BY CALCULATING THE POSITION BEFORE THE LAST N2 ARE 
C*** INCREMENTED AND THEN INCREMENTING THE LAST N2 AT THE SAME TIME 
cm: AS THE LAST N2 ELEMENTS OF BT ARE INCREMENTED ► 

("k'i.'k 

W T* T-t 

no 40 ii*i»DiMu 
DO 40 12=1, N1 
DO 40 13=1? DIMX 

Jl = < Il-l)*N2+( 12-1 )*N2*DIHU+ (13-1 )-*Ni*N2*DIHU 

DO 40 I4=i? N2 

Jl=Ji+l 

J=JF1 

40 BT ( J5=B ( J1 3 

RETURN 

C*** 

C*## IF NTYP£=2? BP MUST BE ZERO? AND B1 AND BQ MUST BE NONZERO. 

C*** IF ANY OF THESE ARE NOT SATISFIED? THE PROGRAM IS STOPPED, 

cm 

50 IF{BP*EQ»0)G0T0 60 

TYPE 155 
STOP 

60 IF(B1 *NE , 0, AND.BQ ,NE . 0 ) GOTO 70 

TYPE 165 
STOP 

Cm 

CUt THE SAME THINGS SAID ABOUT J? Nl? N2? AND ,'l FOR NTYPE-1 APPLY 
C*** TO THE FOLLOWING AS WELL. 

cm 

70 N2=DIHX**(BQ-1> 

N1=DIHU**(B1-1> 

J=0 

DO BO II -1? DIMX 
DO BO 12=1 ,N1 
DO 80 13»x,DIMU 

Jl=( 11*1 >'*N2+(I2-i)*N2*DIMX+( 13-1 >*N2*N1*DIMX 

DO 30 14=1? N2 

J=J+1 

J1=J1+1 

SO BT ( J)=B( J1 ) 

RETURN 

pi-64, 

C*** THE FOLLOWING ARE THE FORMAT STATEMENTS FOR THE ERROR CONDITIONS 
cm FOR THE SUBROUTINE TRANS, 

cm 

101 FORMAT ( ’ SUBROUTINE TRANS. DIM OF TENSOR DOES NOT AGREE WITH 
1 OTHER DIMS, NTYPE='?I4) 

104 FORMAT < ' TRANS WAS CALLED FOR A TENSOR WITH NO U POWERS. NTYF‘E='f I4) 

ill FORMAT ( ' TRANS WAS CALLED?NTYPE=' ? 14? 'WITH NO X POWER TO LOWER') 

155 FORMAT ( ' BP SHOULD BE ZERO FOR SUBROUTINE TRANS NTYPE=2') 
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CM* *#* 

cut title: raise *** 
cm author: Joseph a. O'Sullivan m 
cm %%% 
cm this subroutine raises and lowers powers of the control m 

C*** AND INDEPENDENT VARIABLES. 'RAISING A POWER' MEANS CHANGING *** 
CM* THAT POWER FROM COVARIANT TO C-ONTRAVARIANT » SIMILARLY i LOWER- *M 
CM* ING POWERS CORRESPONDS TO CHANGING THE POWERS FROM CONTRAVA- *** 
C*M RIANT TO COVARIANT. THE TENSOR RESULTING FROM THE RAISE *** 
C*M SUBROUTINE) B» WILL BE OF THE SAME DIMENSION AS THE ENTERING *** 
C*M TENSOR) A) AND WILL IN FACT HAVE THE SAME ELEMENTS AS A) ONLY *** 
C*** IN A DIFFERENT ORDER. THUS) SUBROUTINE RAISE MERELY REORDERS m 
C*** THE ELEMENTS IN THE ORIGINAL TENSOR. IT MUST BE NOTED? HOW- m 
Cm EVER) THAT THE NEW TENSOR IS NOT THE SAME TYPE AS THE ORIGINAL. *** 
Cm THE NEW TENSOR WILL HAVE ELEMENTS WHOSE BASIS ELEMENTS ARE M* 
Cm TOTALLY DIFFERENT FROM A'S) AND THUS IT CANNOT BE USED IN THE M* 
Cm SAME CIRCUMSTANCES (E.G. CONTRACTIONS) AS A. *** 




CM* 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

CM* 

CM* 

CM* 

C*M 

cm 

CM* 

CM* 

CM* 

cm 

cm 


CALLING VARIABLES! *** 

A! THE ORIGINAL TENSOR **;* 

B5 THE RESULTANT TENSOR «** 

Ai: THE CONTRAVARIANT POWER OF A t*t 

APJ THE COVARIANT POWER OF THE CONTROL VARIABLE OF A *M 

AO! THE COVARIANT POWER OF THE INDEPENDENT VARIABLE *** 

OF A ** % 

B15 THE CONTRAVARIANT POWER OF B *** 

BPi THE COVARIANT POWER OF THE CONTROL VARIABLE OF B *%% 

BQ : THE COVARIANT POWER OF THE INDEPENDENT VARIABLE *** 

OF B **t 

DIMU: THE DIMENSION OF THE CONTROL VARIABLE *** 

DIMX: THE DIMENSION OF THE INDEPENDENT VARIABLE *M 

DIHA i THE DIMENSION OF A AND B M* 

NTYPE. INDICATES THE TYPE OF 'RAISE' PERFORMED M* 

*M 

TYPES OF 'RAISE'5 *** 

NTYPE=1 J (Bl-Al) COVARIANT POWERS OF THE CONTROL *** 

VARIABLE OF A ARE RAISED. *** 


CM* 

CM* 

CM* 

cm 

cm 

CM* 

CM* 

CM* 

cm 

cm 

cm 

c m 


FOR THIS TYPE) IT IS NECESSARY THAT. *M 

1) AQ=BQ 2) B1“A1=AP-BP *** 

3) DIMA=DIHUWA1+AP)*DIMX**AQ *M 

4) (Bl-Al )>0 M* 

NTYP£=2! (Bl-Al) COVARIANT POWERS OF THE INDEPENDENT M* 

VARIABLE OF A ARE RAISED. M* 

FOR THIS TYPE) IT IS NECESSARY THAT: *** 

1) AP=BP 2) B1-A1=AQ-B0 M * 

3) raMA=DIMU**AP*DIMX**(Al+AG) *** 

4) (Bl-Al )>0 *M 

NTYPE=3. (Al-Bl) CONTRAVARIANT POWERS OF THE CONTROL M* 

VARIABLE ARE LOWERED. *** 

FOR THIS TYPE) IT IS NECESSARY THAT: M * 


cm 


2; AQ=BQ 2) A1-B1=BF-AP 

m 

cm 


3 > D I MA=D I HU it ( A 1 + AP > % D I MX * LAO 

m 

cut 


4) ( Al-81 »0 

i t A 

cm 

NTY 

PE* *5 ! (Ai-Bl? CONTRA'.'ARIANT POWERS Or THE IN3E- 

m 

cm- 


PENDENT VARIABLE OF A ARE LOWERED, 

nt 

cm: 


FDR THIS TYPE i IT IS NECESSARY THAT* 

m 

cm 


1) AF-FP 2) Al-Bi-BQ-AQ 

tn 

cm 


2 > DIMA =D I HUM AP*BIHX« < A 1 4 A Q > 

m 

cm 


4/ (Al-Bl )>0 

nt 

cm: 



tn 

cm 

MAPPING FOR 

raise; 

nt 

cm 


A1 B1 

*** 

cm 


A > B 

nt 

cm 


AP i AO. BPiBG 

nt 

cut 



nt 

cm 

IMPORTANT VARIABLES! 

tn 

cm: 

N3 » 

THE DIMENSION OF A CALCULATED FROM THE OTHER 

nt 

cm 


INFORMATION (DIHUi DIHXi ■ All AP? AQ) 

tn 

cm 

ia; 

THE ELEMENT OF A WHICH IS BEING MAPPED AT EACH 

tn 

cm 


STEP 

tn 

cm 

IB! 

THE ELEMENT IN B TO WHICH THE ELEMENT OF A IS 

nt 

cm 


FEINS MAPPED AT EACH STEP 

tn 

cm 



nt 

C -T- £ £ -fc 

UntUtnUU 
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tun 

cm* 


nnun ntnnnunntnnnutnntntntnntn 

nut 
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SUBROUTINE 

R A I SE ( A ? B f ft 1 ? AP f AQ r B1 , BP ? BQ ? D IMU ? D I MX ? D I M A r NT YPE > 



INTEGER Air 

AP ; AO ?B'i BP • BO - DIMU ? DIMX 



INTEGER DIHA 



DIMENSION A 

<DIHA)iB(DIHA> 



GO TO m2? 

1 f 2 J » NTYPE 


1 

IF OAQ , EQ, BO) GOTO 11 



cm 

cm 

cm 

cm 

Cm 

Cm: 

r; k*i 

cut 


TYPE lO.'NTYPE 
STOP 


FOR NTYPE=i, .AMD NTY?E=3 (A HD NTYPE*2 OR 4 IF AP=0) THERE IS 
SLIGHTLY DEGENERATE SITUATION, ALTHOUGH THE NEW TENSOR WILL 
DIFFERENT THEORETICALLY FROM THE OLD TENSOR > THE ORDERING OF 
THE BASIS ELEMENTS CORRESPONDING TO THE NEW TENSOR WILL BE " 
THE SAME AS THAT FOR THE OLD TENSOR, THUS THE TWO TENSORS 
HAVE EXACTLY THE SAME ELEMENTS IN EXACTLY THE SAME ORDER, 


A 

BE 


WILL 


11 DO 1? 11=1 jDIMA 

1? B(Il)=H(Ii) 

RETURN 

2 IF (AF.EG.O)GOTO 11 

N3=raMXmAl+AG>*BIHU**AP 
IF ( N3 , EQ , DIMA ) GOTO 12 
TYPE 20»NTYF'E 
STOP 

12 IF (NTYPE, EQ, 4)G0T0 4 
£**t 

OtU THE FOLLOWING IS FOR NTYF'E=2, THERE ARE FOUR HO LOOPS, THEY ARE 
Cm ORDERED SO THAT THEY INCREMENT IN THE SAME WAY THAT TENSOR A DOES, 

Cm THUS > IA IS INCREMENTED ONCE FOR EACH TIME THROUGH THE INNERMOST 


ORIGINAL PASS *3 
OF. POOR QUALITY 


LOOP, THE DIMENSION CF THE FIRST PART OF E THAT IS INCREMENTED IS 
165 THE SECOND PART PAS DIMENSION 14 5 THE THIRD PART 155 THE FOUR! 
PART 17. THE POSITION PRIOR TO INCREMENTING "HE FIRST IS IS CALCU 


LA TFT m3 IS AMD THEN INCREMENTED FOP EACH C" THE INNERMOST IS STEP 


IA-0 

17-OIMXmi 
I4*UIHU**AP 
15 -ITHXfTI AO-EQ) 

16=DTMX**BG 
TO 2? 10= It 17 
no 2 ? n=i?i4 
TO 27 12=3. - 15 

I9«(Ii-l)*IA+IWI4*<I2-H-I5*<I0-l>) 

BO 2? 13=1 f 16 

1 A=IAF1 

Jh’-JSH 

PMB)=A( IA) 

RETURN 


FOR NTYPE=4» CQNTRAVARIAHT POWERS OF THE INDEPENDENT VARIABLE ARE 
LOWERED. HERE THE DO LOOPS ARE SET UP TO INCREMENT IN THE SAME 
MANNER AS THE ELEMENTS OF B ARE ORDERED LEXICOGRAPHICALLY ♦ IA 
IS THEN CALCULATED JUST AS IE WAS CALCULATED FOR NTVPE=2, 

IB=0 

I7»BIHX*#B1 

I4=DIMUmP 

I5*blMX**(BQ-AQ> 

Io=BIHX'£‘*AB 
DO 4? 10=1 : 17 
DO 4? 11=1 » 14 
DO 49 12=1 , 15 

iA=i«<ii-i+i«(i2~i+is*(io-i))) 

DO 4? 13=1 f 16 
IB- JB+1 

lA=Ifivl 

R f I EO =A ( I A ) 

RETURN 

THE FOLLOWING IS THE FORMAT SECTION FOR ERRORS IN 'RAISES 

FORMAT ( ' THE POWERS OF X DO NOT MATCH* SUB RAISE? NTYPE='?I35 
FORMAT*' THE POWERS ARE NOT CORRECT IN SUBROUTINE RAISE»NTYF'E=' ? 13 
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cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 
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cm 

cm 

cm 

cm 

cm 


TITLE* SYK 
AUTHOR ! JOSEPH A . 
DATE? MARCH 1</B4 


O'SULLIVAN 


SUBROUTINE SYH PERFORMS SYKNETR1ZATI0M OF TENSORS . IT 
OBTAINS TENSORS IN THE SYMMETRIC SPACE FROM TENSORS IN THE NOR- 
MAL TENSOR SPACE » IT ALSO CAN SET LARGER DIMENSION TENSORS 
FROH TENSORS IN THE SYHNETRIC TENSOR SPACE. 

INPORTANT VARIABLES*. 

TENS1 J LARGE DIMENSION TENSOR WHICH HAS IP1 POWERS OF 
ONE VARIABLE (WHOSE DIMENSION IS IDINP) AND IG1 
POWERS OF ANOTHER VARIABLE (WHOSE DIMENSION IS 
IS IDINO). 


m 

m 

m 

m 

m 

m 

m 

m 

m 

ttt 

m 

it t 

m 

m 

m 


TENS25 SYMMETRIC TENSOR WHICH HAS IPPP POWERS OF ONE ttt 
VARIABLE SYMMETRIZED AND IUUQ POWERS OF THE ttt 
OTHER VARIABLE SYMMETRIZED < ttt 

IJJi INDICATES WHETHER OR NOT THERE IS A CONTR AVAR! ANT tit 

POWER NOT BEING SYMMETRIZED AND WHAT TYPE IT IS ttt 
ITU THE DIMENSION OF TENS1 tit 

IT2 ’ DIMENSION OF TEHS2 ttt 

I OPT} SELECTS THE TYPE OF SYMMETRIZAT10N PERFORMED ttt 

m 


cmmtmttmttnmmmtnmmmtmmmtttmttmmmttmtt 


cmmtttmmmtmmntmmtntmtmttmtntmmmmmttttt 

cmnmtmmmtttmtnnmtnmnnttmnttmnttmmtmmm 

SUBROUTINE SYKdENSl »TiEHS2r IP! r IfiirlJJrlPPPr IttQQr IT1 »IT2t JDIHPi 
1 lOTNQ.IOPTdERft) 

DIMENSION IIUO)»IJ(10>dOG(10).IOP(i(»» JTF.NK254) 

DIMENSION JTEM2(180) » I0G1 ( 10) 7 I0P1 ( 10) » JC0NT<256} 

DIMENSION TENS1 (IT1 ) »TEN82( IT2) » ID(2) 

Cm 

Cttt THE FIRST PART OF THE PROGRAM CHECKS SEVERAL OF THE INPUT 
CUt ARGUMENTS FOR CONSISTENCY. THE ARGUMENTS ARE CHECKED AGAINST 
Cttt THEIR BOUNDS AND AGAINST THE OTHER ARGUMENTS. IF ANY OF THE 
C**# ARGUMENTS DISAGREE WITH EACH OTHER? THEN THE PROGRAM IS TERMINATED, 
Cttt 

IM0"IQGQ 


INP-IPPP 

IF ( IT1 .LE.256) GOTO 2 

TYPE *r' IN SUB SYH THE DIMENSION OF THE FIRST TENSOR IS TOO LARGE'/ 
t ' CALL D'rlfRR 
STOP 

IF( I JJ.GT. 2. OR.IJJ.LT . 0)G0T0 1100 

IF(IJJ.EQ.0)G0T0 10 

ID(1)* IDINP 

ID(2)=IDIMQ 

IDJ-ID(IJJ) 

GOTO 11 


) 


M 


n 


Li 

n 


Li 


H 

I ! 


r i 



n 

Li 


0 


Lj 
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11 IF(IPPP.EQ.l) INP=0 
IFUGQQ.EQ.l) INQ--0 
IF ( IDIMP.EO. 1 ) INP~0 
IF( TDIMfl . EQ > 1 ) INO-O 
IF(IT1 ,EQ * IT2) GOTO 1201 

IFCIPl.LT.O.OR.IQl.LT.O.OR.IPPP.LT.O.OR.IQGO.LT.O) SO TO J 100 

IF( I Tl . L.E> 0 » OR » I T2 > LE » () , OR . IDIH'j* > L.E > 0 » OR > I OIMG » LE . 0 ) GOTO 1100 

IF ( JPPP.GT . IP1 )GOTO 1000 

IF ( [UQG >GT * fill )GOTD 1000 

1 1”( IDIHPWIPl )t( IIiIHQtllOl )tII>J 

IFUt.NE.ITUGOTO 1000 

J=0 

IT0TP=1 
IT0TQ=1 
DO 9 I=irIT2 
9 JTEN2<I)=0 

IC0M9=IDIHG+INQ-1 

IC-ICOMQ 

IF (IC0M0.£Q.0)IC-'=1 
ICONQdC 

IF ( IC0HQiGT«0)G0 TO 3'l4 

TYPE *»' ERROR IN SUB SYM. LINE 30 4. ICOHG SHOUl U HOT BE LE Or CALLt'f 
8 IERR 
STOP 

304 DO 14 I :: l r ICOHU 

14 ITOTQ-TTOTGtl 
IF(IM.EQ,0)G0TO 306 
DO 15 1=1 r INCJ 

15 ITQTQ-ITOTQ/I 

306 I15*IDIMQ-1 
IF(n5*GT,0>G0T0 316 
ITOTQ=t 

IF( I15«EQ.0)30T0 307 

TYPE *»' ERROR IH SUB SYH. LINE 306. 115 SHOULD HOT BE U 0. CALL # 

8 ' i IERR 
STOP 

316 DO 16 I --l» 115 

16 ITOTQ=ITOTQ/I 

307 IC0HP--IDINP+INP-1 
IC-ICOKP 

IF ( IC0NP.EQ.0)IC=1 
ICONP= : IC 

IF ( ICOHP.GT .0)B0T0 317 

TYPE *» ' ERROR IN SUB SYH. LINE 317, ICOHP SHOULD HOT BE LT 0. CALL # 
8 ' > IERR 
STOP 

317 DO 17 I=lrICOMP 

17 ITOTP=ITOTP*I 

IF ( INP * EG . 0 ) GOTO 309 
DO 18 I=lrIHP 

18 ITOTP-ITOTP/I 

309 I15=IDIHP“1 

IF ( Il5»GTi0)G0T0 319 
ITOTP r -l 

IF( I15»EQ.0)G0T0 320 
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TYPE *»' ERROR IK SDR SYK. LINE 309. 113 IS TOO SHALL, CALL *'?IERR 
STOP V 

319 DO 19 I-ifI10 

19 ITQTP-ITOTP/I 

320 ITT2=nGTP*IT0TQ*lDJtIIiIHQmiGl-INH>*lDIKPmiPMNP> 

20 IF<tTr2»EQ»IT2>60T0 24 

TYPE 21 t IERR 

21 FORMAT!' THE DIMENSION OF THE SHALL TENSOR DOES HOT HATCH'/ 

1 ' THE CALCULATED DIMENSION IN SUBROUTINE SYM? CALL 'iI2> 

STOP 

cm 

Ct** THE FOLLOWING SECTION OF THE PROGRAM IS DEVOTED TO SETTING UP 
Cm A HAPPING FRON THE ELEMENTS OF THE LARGER DIMENSION TENSOR 
C*** TO THE SMALLER DIMENSION SYMMETRIC TENSOR, THIS MAPPING IS 

Cm CARRIED OUT BY ASSIGNING A NUMBER TO EACH ELENENT OF THE SYHHET- 

C«* RIC BASIS AND THEN IN THE MAIN PROGRAM CORRESPONDING EACH 
C*tt OF THESE NUMBERS TO AN ENTRY IN THE SYMMETRIC TENSOR. THE 

C*** NUMBER IS COMPUTED BY FIRST PUTTING THE BASIS ELEMENTS IN 

C*tt LEXICOGRAPHIC ORDER . THE BASIS ELEMENTS ARE THEN HAPPED TO 
C*** SYMMETRIC BASIS ELEMENTS, THESE BASIS ELEMENTS ARE THEN 

Cm ASSUMED TO BE DIGITS IN A BASE ID IMG NUMBER SYSTEM. THEY 

C*** ARE THEN CONVERTED TO DASE TEN AND THIS NUMBER iS THE ONE 

C**# WHICH CORRESPONDS TO THE BASIS ELEMENT, THESE BASE TEN NUMBERS 

Cm ARE THEN PUT IN ASCENDING ORDER IN A TENSOR ? JTEN2(I). 

Cm IN THE SECTION WHICH FOLLOWS THIS NAPPING SECTION/ THE CON- 
Cm VERSION FROM TENSOR TO TENSOR TAKES PLACE. THIS IS ACCOMPLISHED 
Cm BY AGAIN CMPUTING THE DASE TEN NUMBER CORRESPONDING TO EACH 
C*** ELEMENT AND THEN FINDING OUT WHICH ELEMENT IN JTEH2U) IT 

Cm CORRESPONDS TO. THE CONVERSION IS THEN EASY, THE REASON 

Cm: THIS SEEMINGLY ROUNDABOUT METHOD IS USED IS THAT NOT ALL 

C*** OF THE COMPONENTS OF THE BASIS NAY DE DESIRED IN SYMMETRIC 
C*** FORM. THUS IF INQ«IQ1 THE MAPPING SECTION OF THE PROGRAM 

C*** WILL NOT BE RUNNING FOR A LONG TINE COMPARED TO THE FOLLOWING 

C*** SECTION OF THE PROGRAM. If? HOWEVER? IKG"IGi AND INP'lPlf 

•**-»*■* THEN THE NAPPING SECTION WILL TAKE AS LONG AS THE SECTION 

C**t WHICH FOLLOWS THIS ONE, 

C*** NOTE THAT IN THIS SECTION I0Q(1) AND 1001 (I) ARE KEPT SEPA- 

C*** RATE, THIS IS SO THAT THE NORMAL BASIS COMPONENTS? IOQ(I)» 

C*** ARE INCREASED LEXICOGRAPHICALLY APART FROM THE SYMMETRIC 

C*$* BASIS COMPONENTS? 1001 (I) ? WHICH ARE REORDERED FOR EACH C. 

CU* ALSO NOTE THAT JOfi(l) IS THE •LAST* COMPONENT t THE COUPON* 

Cm ENT WHICH IS INCREMENTED FOR EACH I, 

24 IF UNO. EG. 0) GOTO 380 

DO 80 I"t rlNG . 

80 IQG(I)=i 

380 IF ( INF . EG .0 ) GOTO 381 
DO 81 I-li IMP 

SI IOP(I)-i 

381 I00(i)“0 

IF( INQ.EG.01G0T0 200 
Ni»rbtHQ*tI39 
DO 92 I"1 ? N1 

ioQ(i)--ioaam 

N3*INQ~1 
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Dl) 82 N2"l f N3 

1F(I0G(N2) .LE.IP1M0) 6 .0 82 

N4-N2F1 

IOQ(N4>=IOQ<N4>+1 
I0Q(N2)-1 
B2 CONTINUE 

DO 95 N2-1 » INQ 
95 I0Ql<N2)»I0Q(N2) 

N2*l 

N3=2 

83 CONTINUE 

IF <lOei(N2),8E«IOftl(N3)>GO TO 84 
N4"I0Q1(N.3) 

I0G1<N3)=IGQ.1<K2> 

I0Q1(N2)~H4 

84 N3~N3t 1 
IF(H3.LE.INU)G0 TO S3 
N2 :: N2f 1 

N3-N2+1 

IF(N3.LE.INQ)G0 TO S3 
JTEN1 ( I )" I0Q1 ( INU)'-i 
DO 85 N2=2> INQ 
N3--INQ-H2H 

85 JTEN1 (I )=JTEHJ < l>$lDlHQ+I0Gi<N3)-l 

92 JTEH1 (I >~JTENK I ) +1 

GOTO 220 

200 .JTEN1 ( 1 )=0 

201 N1=0 
IF(INP.EQ.O>GO TO 1200 
GO TO 230 

220 IF(INP.NE.O) GOTO 2.30 

N10-N1 
GOTO 221 

C*** 

cut THE FOLLOWING SECTION PERFORMS THE SAHE OPERATIONS ON THE U 

cut POWERS THAT WERE PERFORMED ABOVE ON THE X POWERS. THE MAPPING 

cut IN THIS SECTION WILL CONTINUE TO BE TO THE TENSOR JTENl(I)r 

C*** CONTINUING WHERE THE LAST SECTION LEFT OFF IN THE TENSOR. 

C*** THUS TO UTILIZE THIS HAPPING FROM TENSOR TO SYMMETRIC TENSORr 
C*** ONE MUST ADO IDXNamNO TO THE CALCULATED ENTRY POINT (THE 

C*** BASE TEN NUMBER COMPUTED FROM THE IOPKI) ASSUMING THE LATTER 

Cm TO BE ELEMENTS OF A BASE IDIMP NUMBER SYSTEM) ♦ 

cm 

230 I0P(1 >=0 

N10=IDIKP**INPFN1 

DO 90 I"Nl»H10 

iop(i )-iop(i)+i 

N3" IMP-1 
DO 86 N2*=l » N3 

IF ( I0P(M2) ,LE» IDIMP) GO TO 86 
N4 -N2+1 

IOP(N4) = IOP(N4H1 
I0P(N2)™1 

86 CONTINUE 


DO 96 N2-1 »IHP 

96 IOP1 <N2) =I0P(N2) 

N2-1 

N3==2 

07 CONTINUE 

IF ( I OP ( N2 ) , 8E » I0P1 ( N3 ) ) BO 70 06 
N4-I0P1XN3) 

I0P1 (N3)=I0P1 (N2) 

I0P1 (N2)«N4 

88 K3*N3+1 

IF (N3«LE , IHP)GD TO 87 

N2= : N2f 1 

N3*K3+1 

IF(N3.LE,INP)G0 TO 87 
JTEH1 < I)«I0P1(IMP)-1 
DO 89 N2-2» IHP 
N3 r -INP“N2+1 

89 JTEM1 ( I )=JTEN1 (IXI DIMP+I0P1 (N3) -1 

90 JFENt ( I)*JTEN1 (IHl+ID [NOBBING 
C*C* 

CBBB THE NEXT SECTION COMPLETES THE MAPPING BV REMOVING THE REDHiJ 

CBBB DANT NUMBERS WHICH COHE FROM PERMUTATIONS OF THE 8 AS IS COH- 

CBBB PONENTS. THE ELEMENTS CORRESPONDINO 70 THE POWERS OF U 
CBBB ARE THOSE AFTER JTFJflUTOTQ) . 

CBBB 

221 J~0 

N3 s =N10-2 
DO 103 N2"1»IT1 
103 JC0NT<N2)=0 

DO 97 N2=1»N3 
N4=N2'+1 

DO 97/ NS~N4f N10 

IFUTENl <N2> .NE, JTEN1 (NS) )60 TO 97 
IF( JTEN1 (N2> >F.Q,0)G0 TO 97 
JTENl (N5) s 0 

JCONTi JTENKN2) ) --JCOHT ( J7EN1 (N2) )+l 

97 CONTINUE 

DO 98 N2=1»N10 
IF(JTEN1(N2) «NE,0) J--J+1 

98 CONTINUE 
CBBB 

CBBB HERE J IS JUST THE NUMBER OF D^TIUCT NUMBERS IN JTENK1) » 
CBBB 

240 N6=N10-1 

C*BB 

CBBB THE FOLLOWING PUTS THE. ZERO ENTRIES OF JTEKJ(I) AT THE 
cm BEGINNING r THEN LOADS THE NEW TENSOR JTEN2<I) FOR THE 
tm PURPOSES OF THE MAPPING, 

cm 

DO 99 N2 SS 1 rN6 
N4-N2fl 

DO 9? N3*N4 »N10 

IF( JTEN1 (N2) »LE« JTENl CN3) ) 60 TO 99 
N5«JTEN1 (N3) 

JTEN1 ( N3 ) -JTENl C M2 ) 


JTEN1(N2)=N5 

99 CONTINUE 
H- 1 

100 N5=.JTEN1<M> 

IF(N5.NE.0)G0 TO 101 
H“NF1 

GOTO 100 

101 H=N-1 

DO 102 N2-1 f J 
N-N+l 

102 JTEN2 { N2 ) - JTEN1 ( M ) 

Cm 

C*M THAT ENDS THE HAPPING SECTION. 

cm 

cm 

cm I OPT a 1 CORRESPONDS TO A LARGE TENSOR TO SYMMETRIC TENSOR 

Cm TRANSFORMATION OF CO VAR I AMT TYPE. I0PT 3 CORRESPONDS TO THE 

Cm SAME TRANSFORMATION OF CONTRAMARIANT TYPE. 

Cttt 

IF d OPT . NE , 1 . AND . IflPT . HE . 3 . AND < IOPT . NE . 5 > GOTO 21* 

DO 23 1-1 » IT2 
23 TENS2d>=0 

cm 

cm NOTE THAT IN THIS SECTION IJUG1) IS THE 'LAST' COMPONENT. 

Cm IT IS THE ONE WHICH IS INCREMENTED FOR EACH I. 

CU* 

25 IFdPl.EQ.OIGOTO 313 

DO 12 I«1»IP1 

12 II(I)=1 

313 IFdQl.EG.OIGOTO 311 

DO 13 I«1>XQ1 

13 IJ(T)=1 

314 N0=1 
IQ2-IQ1-1 

IF (101 .NE.0)IJ(IGl>-0 
IP2- CPI “1 
DO 120 1=1 » IT1 
IF(IQ1.EQ,0>G0 TO 32 
IJ(I01)=IJ(I01)+1 
IFdQl >EQ. 1)00 TO 31 
DO 30 N2-1?IQ2 
N3«IWtl-M2 

SF(IJ(N3) .LEiIDIMQIGO TO 30 
N4»N3-1 

I J(N4)"I J(N4>+1 
I J<N3> s: l 

30 CONTINUE 

31 IFd J( 1 ) .LE.IDZHG) GOTO 40 

I J<1) "1 

IFdfl (EQ.O)GOTO 260 

32 ndPD=XIdPim 
IFdPl.ESi 1IG0T0 41 
DO 35 M2-<1 7 IP2 

N3«XP1+1-N2 

IF(II(N3).LE.1D1HP)«0T035 
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N4= : N3-1 

II(N4)-II(N4)+1 
I I ( H3 ) * 1 

35 CONTINUE 

cm 

cm THE NEXT FEU LINES CHECK FOR ERRORS, 
cm 

40 IF(IP1»EQ»0)60TO 45 

41 1F(I1(I).LE*(0[KP)60TO 45 
IF(IDJ«EQ»1)G0 TO 1100 
miH 

IFtNO.GT. IDJ)G0 TO 1100 
260 N0-"NO+1 

IF<H0.GT.JPJ>G0 TO 1100 
45 CONTINUE 

IF(ZHCt«E£M»)G0T0 263 
DO 50 N3-*l i INQ 
N2-IQ1-N3+1 

SO I0Q(N3)-IJ<N2) 

Ctt* 

cm NEXT THE BASIS ELEKENTS ARE REORDERED , IOQU) IS NOW 

C*** THE 'LAST* COMPONENT > SIMILARLY > I0PK1) MILL BE 'LAST 1 . 

cm 

263 IF<INP,EQ.0> GOTO 265 

DO 55 N2-1 ? INP 
N3-IP1-N2+1 

55 I0P<M2) -II (N3) 

265 N2=l 

N3*2v 

60 CONTINUE 
IF(lH0.EQ*0>fiGT0 262 
IF(IOQ(N2).UE,IOQ(N3))GO TO 61 
N4»10Q(N3) 

I0Q(H3)*IOQ<N2> 

I00(N2)=N4 

61 N3-N3H 
IF(N3.LE.1H«)G0 TO 60 
N2-’-N2+l 

N3-N2+ 1 

IF<N3,LE.INQ>G0 W 60 

N2~l 

N3-2 

262 IF< INP «NE*0> GOTO 62 

NTEN2-0 
GOTO 268 

62 CONTINUE 
IF(I0P<H2).r»F.I0P(H3)> GO TO 63 
N4«I0P<N3> 

I0P(N3)=I0P(N2> 

I0P(N2) sr N4 

63 N3-N3+1 
IF(N3.LE.INP) GO TO 62 
N2-H2+1 

N3~K2+i 

IF(N3*LE» IMP) GO TO 62 
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IF<ING.NE.0>60T0 267 

Cm 

Ctn THE NEXT SECTION FINDS THE BARE TEN NUMBERS ASSOCIATED WITH ’ 

C*** THE TWO PARTS OF THE TENSORS. 

cm 

NTEN1=1 

NTEN3-1 

NTEN2=I0P< INP)-1 
GOTO 269 

267 NTEN2=I0P< INP)-1 

268 NTENl'-IQUUNO)-! 

DO 66 N2-2f INQ 
N3”INQ-^2f 1 

64 NTEN1=NTEN1$IDIHQ+I0Q(N3)-1 
NTENt^NTENUl 

269 IFUNP.NE.OJGOTO 270 
NTEN4-0 

GOTO 271 

270 00 45 N2~2» INP 
N3-*INP-H2+1 

65 N TEN2"NTEN2*IDINP+I0P ( N3 ) -1 
NTEN2=NTEN2+HHUH0**1HG 

271 DO 46 N2--1 7 J 

IF(HTEN1 «NE.JTER2(N2> )G0 TO 67 

N7EN‘J=-N2 

GD TO 66 

67 CONTINUE 

IFCNTEN2.NE. JTEN2(N2) >G0TO 66 

NTEN4“N2~IT0TQ 

GO TO 68 

66 CONTiNUE 

7.F ( INP .EQ.0) GOTO 68 
TYPE 69» IERR 

69 FORHATI ' ERROR. SYN» CALL«'»I2r' LINE 66.') 

STOP 

68 IF(INP.EQ.O)NTEN?“l 
IF< 1NP.EG.O)NTEN4-0 
N3-0 

N4-INQ+1 

C*** 

CUt THE NEXT FEU LINES CALCULATE THE COMPONENT OK TEK82 
Cm WHICH WILL BE USED WITH THE ITH COMPONENT OF TENS1 IN THE 

cm HAPPING. 

C*** 

IF < INC. EQ. 101 ) GOTO 370 
DO 70 N2*-N47l01 

70 N3=N3+(IJ(IQl-N2+ir-l)tIDIMQTC(H2-INB-l) 

370 N5^C 
N4«IHP+1 

IF ( INP.EQ* IP1 >GOTO 371 
DO 71 N2 r -N4f IP1 

71 N5«N5+< 1 I ( IP1-N2+1 >“1 )BIDIHPt<t(N2-INP--l > 

371 M2-HTEN3KITOTU$(N3HDIH(T#t(IUl-INQ)8(NTEN4+ITOrP$<H5+I0IHP?*< IP1 
& -IHP)t(NO-l)))) 

IFIIOPt.NE.l f AND.TOPT «NE.5)G0 TO 7? 
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TEN52 < N2 ) »TENS2< H2 > +TEHSI ( T ) 

GO TO 120 

72 IFdOPT .NE.2)G0TG 73 

TENS! ( I ) =TEN52 ( N2 ) / ( F LOOT ( ( .»CONT < NTEH1 ) + 1 ) * ( JCONT ( HTK K2 Hi > ) > 

GO TO 120 

73 IF (I OPT •Nt'«3)G0 TO 74 

TEHS2 ( N2 ) s TENS2 { N2 ) + TENS 1 d ) / < FLOAT ( ( .ICON* ' MTi: Ki H- 1 ) $ ( JfcuR H HTEN2 H 
l 1 ))) 

GO TO 120 

74 IF< IOPT .N£ » 4)60 TO 1230 

TEHS1 < I )**7ENS2(H2) 

120 CONTINUE 

I0PT5-I0PT 
IFdOPT *EQ. , i)I0PT5=2 
IF(IOPT »EQ*5) I--5 
IOPT-IOPT5 
IF ( I . EQ»-5)GQT0 25 
RETURN 

1000 TYPE 1001»IERR 

1001 FORHAT ( ' IN SUB SYH THE DIMENSIONS LISTED 00 HOT AGREE . * t 12) 

STOP 

1100 TYPE llOlflERR 

1101 FORHAT (' THERE IS AH ERROR IN SYH CALL NUMBER* dI2) 

STOP 

1200 IF(IT1.NE*IT2)G0 TO 1220 

1201 IFdOPT » £0.2)60 TO 1203 

BO 1202 I"-l *IT1 

1202 TENS2d)"TENSl (I) 

RETURN 

1203 00 1204 1=1 *IT1 

1204 TENS1 ( I )=TEHS2< I ) 

RETURN 

1220 TYPE **' THE OTHFR DIMS IHBICATE THAT IT1 SHOULD EQUAL IT2V 

t ' * BUT THEY ARE NOT EQUAL, SUB SYH. LINE 1200. CALL IdtERR 

1221 STOP 

1230 TYPE tf' IOPT IS NOT WITHIN THE ACCEPTABLE LIMITS. CALL t'rlERR 
STOP 
END 
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cm m 


rm 

C*« 

cm 

Cttt 

Ct-U 

cm 

cut 

C Ut 

cm 

CUt 

cm 

CUt 

cut 

Cttt 

c ttt 

CUt 

cut 

CUt 

Cttt 

cut 

cttt 

cut 

cut 

C-tU 

cut 

cm 

cm 

cm 

cm# 

cut 

cut 

cut 

cut 

cut 

cut 

cut 


TITLE! 

author: 


BFR03 

JOSEPH 


A* O' SUL LI UAH 


SUBROUTINE DPROD CALCULATES THE DIRECT PRODUCT OP TWO 
TENSORS, in THE PRESENT APPLICATION- THE DIRECT PRODUCT IS 
ONLY NECESSARY FOR 'SQUARE' TENSORS- SQUARE TENSORS HAUE THE 
COVARIANT AND CON TR AVAR I ANT DIMENSIONS AND THUS THEIR DIMEN- 
SIONS ARE THE SQUARE OF AN INTEGER, THE RESULT OF A DIRECT 
PRODUCT OF TWO SQUARE TENSORS IS AGAIN A SQUARE TENSOR. 

THE DIRECT PRODUCT IS COMPUTED BY ADDING THE SUM OF 
•THE TENSOR PRODUCT OP THE FIRST TENSOR AND AN IDENTITY TENSOR 
.THE SIZE OF THE SECOND TENSOR TO THE TENSOR PRODUCT OF AN 
IDENTITY TENSOR THE SIZE OF THE FIRST TENSOR AND THE SECOND 
TENSOR, THE DIRECT PRODUCT OF SQUARE TENSORS IS IDENTICAL TO 
THE DIRECT PRODUCT OF SQUARE MATRICES r WHERE AN IDENTITY 
MATRIX IS USED INSTEAD OF AN IDENTITY TENSOR, 


CALLING 


a: the first input tensor 

Bl THE SECOND INPUT TENSOR 
Cl THE OUTPUT TENSOR 

IDIMA! THE DIMENSION OF A 

irilHB: THE DIMENSION OF B 

IDIMCI THE DIMENSION OF C 

ncall: a bebuggunb parameter: if this subroutine is 

CALLED SEVERAL TIMES AND THERE 13 AN ERROR IN 
ONE OF THE CALLS, THEN THE CALL IN WHICH THE 
ERROR OCCURS CAN BE UNIQUELY IDENTIFIED BY 
NCALL, 


IMPORTANT VARIABLES: 

ia: square root of idima 

IBI SQUARE ROOT OF ID I MB 
J! THE ELEMENT FROM C WHICH 
EACH -STEP 


IS BEING CALCULATED AT 


m 

m 

ttt 

tu 

ttt 

ttt 

ttt 

in 

tn 

tu- 

rn 

tn 

tn 

ttt 

tn 

tn 

m 

ttt 

m 

ttt 

tn 

ttt 

m 

ttt 

tn 

tn 

tn 

ttt 

tn 

tn 

m 

tu- 

tu 

tn 

tn 


cntttnttnnnntntnntttttnntutuntntnttttnntnntnnntntn 


cntnntntnnnnnnnnnnntutntntntnnnnnnntnnnnntn 

cnntTnnnnnnntntntnnnnnnttnnttnnntntnntnnnttntt 

SUBROUTINE DPROD (A/BrC, IDIMA r IBIMB; I DIMS iNGALL ) 

DIMENSION A(IDIMA) ,B( IBIME) iC(IHIMC) 

CW. 

Cut FIRST THE PROGRAM CHECKS TO MAKE SURE THAT IDIMC*IDIMA*IDIHB. THEN 
C*** IT CHECKS IDIMA AND ID I MB TO SEE IF THEY ARE INDEED SQUARED INTEGERS 

Cttt IF ANY OF THESE THREE CONDITIONS ARE VIOLATED, THE PROGRAM IS TERM I - 

cm M ATED * 

cut 

IDt=JDIMA*IDIMB 
IFdBl ,EQ, IITMC) GOTO 10 
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cm. 

cut 

cut 

cut- 

cut 

C Ut 

cut 

cut 

c*** 

cm 

cut 

cut- 

cut 

cttt 

cut 

Ci*it 

cut 

cut 

cm 

cut 

8 


?;T. *» • THE :■ IK HUMS *9 NOT MATCH , SUE DP ROD 

?ro- 

1 - ! r T :< • SORT (FLOAT TDIMA) )t .0001 ) 
lU-irlY (SORT (FLOAT •' IB IKE} K.OOOl > 
if afi*#2.Ea.I»IMA)S0T0 5 

TlTFE W THE DIM Or A IN DPROD WAS HOT SQUARE? 
STOP 

If*. IB«2.EQ.IBIHB)GOTO B 

TYPE i-7' THE DIM OP B IN DPROD WAS NOT SQUARE? 
STOP 


? NCAU='»NCALL 


NCALL*' iNCALL 


NCALL='»NCALL 


J IS HOW SET TO ZERO, THE FOUR DO LOOPS ARE SET UP SO THAT THEY 
INCREMENT IN THE SAME MANNER AS THE LEXICOGRAPHIC ORDERING FOR C, 
THUS? J IS INCREMENTED BY ONE EVERY TIME THROUGH THE INNERMOST 
LOOP TO KEEP TRACK OF THE ELEMENT IN C WHICH IS BEING CALCULATED, 
THE DELTA FUNCTION IS USED FOR THE IDENTITY TENSOR, IN THE 
LIKE WHICH CALCULATES C(J)r THERE ARE TWO TERMS, , THE FIRST REP- 
RESENTS THE TENSOR PRODUCT OF A AND AN IDENTITY TENSOR THE SAME 
SIZE AS B, THE IDENTITY TENSOR CAN BE SEEN TO BE THE SAME SIZE AS 


B BY NOTICING THAT DELTA'S TWO ARGUMENTS EACH VARY FROM ONE TO IB, 
THE TERM CAN BE SEEN TO BE A TENSOR PRODUCT BY NOTICING THAT THE 
LEXICOGRAPHIC VARIATION OF THE ARGUMENTS OF A AND THE IDENTITY 
TENSOR IS CORRECT IN THE SENSE THAT THE COVARIANT PART OF THE 
IDENTITY IS VARIED FIRST? THEN THE COVARIANT PART OF A? THEN THE 


CONTRA-JAR I ANT PART 
THIS ORDERING j 


si, 

IS THE EXPECTED TYPE 
f HE SECOND TERM, Iff 
FROM ONE TO IA EACH? 

SAME SIZE AS A? AND 
TYPE AS THE FIRST TERM AND C, 


OF THE IDENTITY? THEN THE CONTRA VARIANT PART OF 
S OBVIOUSLY THE SAME AS THAT IN C? SO THIS TERM 
OF TENSOR, SIMILAR COMMENTS CAN BE MADE ABOUT 
PARTICULAR? THE DELTA FUNCTION'S ARGUMENTS RANGE 
THUS THE IDENTITY TENSOR IT REPRESENTS IS THE 
“HE ORDERING IS SUCK THAT THE TERM IS THE SAME 


J=0 

DO 12 XI— 1 ? IA 
DO 13 12=1? IB 
DO 13 13=1 iIA 
DO 13 14-1 ? IB 
J=J+1 

C(J)=A< Ul-l)*IA+I3)*DELTA(I2»I4>+DELTAairI3)*B<(I2-i>*IB+I4) 

RETURN 

END 
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in 

title: del t a 


DELTA IS A FUNCTION WHICH IS USED PRIMARILY IN THE 
SUBROUTINE DPRQD TO HAKE THE CALCULATIONS MUCH MORE INTUITIVE. 
IT IS A REAL FUNCTION WITH INTEGER VARIABLES. 


I? J 


Cttl 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 
cm 

C4444-1111111111111111111111111111111111111111111111111111111111111111111111 


INPUT variables: 
FUNCTION*. 


I*==J > 

I=/=J — > 


DELTA=1 . 0 
CELT A =0. 0 


m 

m 

in 

m 

in 

m 

m 

m 

m. 

in 

in 

in 


cmmmmmimmmmmimmmmimimmmmmimmm 

FUNCTION DELTA? I -J) 

IF? I . NE . J) 30 TO 1 
DELTA- i » 

RETURN 

1 DELTA=0. 

RETURN 
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TITLE! PERN 

AUTHOR ! JOSEPH A, O'SULLIVAN 

SUBROUTINE PERN IS A REORDERING OPERATOR WHICH PERFORMS 
tV (hPimO) PlPJiUThTION ON THE COVARIANT BASIS ELEMENTS OF A. 

IT TAKES THE AP BASIS ELEMENTS CORRESPONDING TO THE COVARIANT 
POWERS OF THE CONTROL VARIABLE AND PLACES THEM AFTER THE AG 
BASIS ELEMENTS CORRESPONDING TO THE COVARIANT POWERS OF THE 
INDEPENDENT VARIABLE, THAT IS TO SAY THAT THE LEXICOGRAPHIC 
ORDERING r THE THE CQVARIANT BASIS ELEMENTS CORRESPONDING TO THE 
CONTROL VARIABLE WILL BE PERMUTED BEFORE THOSE OF THE INDEPEN- 
DENT VARIABLE, THIS IS USUALLY DONE PRIOR TO A CONTRACTION 
IN WHICH THE CO VAR I A NT CONTROL VARIABLE IS INVOLVED, 

CALLING VARIABLES! 

a: THE INPUT TENSOR 

B! THE OUTPUT TENSOR 

Alt THE CONTRAVARIANT POWER IN A 

AP! THE COVARIANT POWER OF THE CONTROL VARIABLE IN A 
AG! THE COVARIANT POWER OF THE INDEPENDENT VARIABLE 
IN A 

IDIMA! THE DIMENSION OF A 
* IDIMU 1 THE DIMENSION OF THE CONTROL VARIABLE 

IBIMX* THE DIMENSION OF THE INDEPENDENT VARIABLE 

H TYPE ! THE TYPE OF PERMUTATION PERFORMED 

NCALU A DEBUGGING VARIABLE? IF THIS SUBROUTINE IS 

CALLED MANY TIMES? THE CALL IN WHICH THE ERROR 
OCCURRED CAN BE UNIQUELY SPECIFIED USING THIS 
VARIABLE, 

TYPES OF PERMUTATIONS! 

NTYF'E=1 } THE CONTRAVARIANT POWERS OF A ARE OF THE SAME 
TYPE AS THE COVARIANT AG, 

NTYPE=2 5 THE CONTRAVARIANT POWERS OF A ARE OF THE SAME 
TYPE AS THE CQVARIANT AP, 

NTYPE=3J A HAS NO CONTRAVARIANT POWERS, FOR THIS TYPE 
A1 MUST BE ZERO, 

NTYF‘E=10! A HAS A1 CONTRAVARIANT POWER OF THE CONTROL 
VARIABLE AND BOTH AP AMD AQ COVARIANT POWER OF 
THE INDEPENDENT VARIABLE 

NTYPE-11! A HAS DIMENSION A1 CONTRAVARIANT PART AND 
CQVARIANT PARTS AQ AND AP, THIS IS USED 
MAINLY WHEN A? INVOLVES BOTH CONTROL AND INDE- 
PENDENT VARIABLES, 

THE HAPPING IS! 


AP? AQ 


AQ? AP 


wn 


cm 

C f v f 


OE poor. Q- : - u - 


HERE IT MUST 

BE NOTED THAT THE AS HAVE NOT MAGICALLY BECOME 

1- T *f 

i i s 

cm 

CGVARIAtfT POWER OF THE CONTROL VARIABLE, THEY ARE STILL COVA- 

m 

cm 

F. I ANT POWERS 

OF THE INDEPENDENT VARIABLE; BUT THE ORDER OF THE 

< * ' 

£,:■» LY 

ELEMENTS IN 

THE TENSOR HAVE CHANGED, 

Yl; 

U * * r 



-T f f 

C*H 

IMPORTANT VARIABLES: 

m 

cm 

XDi: 

THE DIMENSION OF THE CONTRhVARIhNT PART OF THE 

m 

cm 


TENSOR 

m. 

cm 

id: 

THE DIMENSION OF A AS CALCULATED FROM THE OTHER 

.m 

cm 


INFORMATION (IDIMU, IDIMXr ID1: AF; AQ) 

m 

cm: 

III 

THE DIMENSION OF THE SECOND PART OF TENSOR A TO 

m 



BE INCREMENTED IN. ITS LEXICOGRAPHIC ORDERING 

LYT 

cm 

12; 

THE DIMENSION OF THE FIRST PART OF A TO BE INCRE- 

m 

cm 


MEN TED 

m 

cm. 

N6: 

THE ELEMENT IN A WHICH IS BEING MAPPED AT EACH 

m 

CALL 


STEP 

n* 

C Y Li: 

j; 

THE ELEMENT IN B TO WHICH THE DESIGNATED ELEMENT 

tn 

Cm 


IN A IS BEING MAPPED AT EACH STEP 

*** 

CFU 



m 
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tnnnnnntnmnntn*nnntnnwnntnnuv**n*t%nttnnnMt**n 

SUBROUTINE PERMtArB; Ai i AF'j A3 • IDIMAj IBIHL'j IBIMX ? NTYPE ? NCALL ) 

INTEGER AIiAFrftG 
BITTEftSIGH AdDIMA); BdBiLA) 


C4t* 

cm 

:t t L 
C'**f 

cm 

cm: 


10 

cm 

G«l 
ctt Y 
C 

cm 

pm 

C*** 

cm 

cm 

cm 

cm 

cm 


F1S3T THE PROGRAM CHECKS THE DIMENSIONS IN THE CALLING STATEMENT TO 
MAKE SURE THEY AGREE WITH EACH OTHER. IF THE DIMENSION OF A AS CAL- 
CULATED FROM THE OTHER INFORMATION DOES HOT EQUAL IDIHAi THE PROGRAM 
IS TERMINATED, 


101=1 

ZF(NTYPE#EQ.l)im=IDIHX#*Al 
IF(HTYPE.E0.2)ID1=IDIMU**A1 
IF (NTYPE. EG » 10)00 TO SO 
IF(NTYP£« ECS. 115ID1-A1 
IP’sIBIMX*3jrAC*I!>lHU**AP*IDl 
IFtIB*En.lBIMA)OOTQ 10 

TYPE %■, ' THE DIMENSIONS DO NOT AGREE IN SUB PERM CALL-' j N CALL 
STOP 

I5=IDIMX**A0 

I2*IBIHU**AP 


FOR NTYPE=1 ? 2; OR 3? THE VARIABLES II; 12; AND ID1 ARE CALCU- 
LATED ABOVE , FOR NTYPE=10; THEY ARE CALCULATED AFTER LINE 30, 
THE DO LOOPS BELOW ARE SET UP 30 THAT THEY INCREMENT IN THE 
SAME MANNER AS E. THUS J IS SET TO ZERO AND THEN INCREMENTED 
EACH TIME THROUGH THE INNERMOST LOOP TO KEEP TRACK OF THE ELE- 
MENT IN E TO WHICH THE ELEMENT IN A IS BEING MAPPED, N6i THE 
ELEMENT IN A BEING MAPPED; IS CALCULATED USING N3; N-1 AND N5 
AND THE KNOWLEDGE OF THEIR RELATIONSHIP TO THE ELEMENT OF THE 
TENSOR BEING MAPPED TO, FDR INSTANCE; IF MS IS GREATER THAN 
ONE; IT IS KNOWN THAT THE DESIRED ELEMENT OF A; NS; IS AT LEAST 
(N 5 -mil* ALSO; IF N3 IS GREATER THAN ONE; N6 IB AT LEAST 
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C i - 1 ?. 


CU* 

':m 

cut* 

cm 

cm 

30 


c 


mi *12 




' 

J ; ■ ; > . ] r l - 1 , T ! « 1 

1-3 :c Ji 

> 'S' N5 - 1 1 1 

1 -Jil 

i ; o •( (M2-mi2vfl5-l):KIlvfM 
j)=AirS 6 .' 

: ETURN 


e, 


OF POOR QOf-‘ 


"S; THE CONTRAVARIANT POWERS ARE OF THE CONTROL VARIABLE 

hHLi BOTH hP AND AO ARE COVARIANT POWERS OF THE INDEPENDENT VARIABLE 
ID/ ID!? Ii, AND 12 ARE CALCULATED FROM THIS KNOWLEDGE. AND t HEn" 
CONTROL IS PASSED BACK TO THE DO LOOPS ABOVE. 


IB=IBIMU**AimiIHXn{AP+AQ) 
IF; ID,NE. 1 DIMA)G 0 TO ? 

IDl -I Dlh'UTTAl 
I 1 =IDINX»AQ 
I 2 - 1 DINXWAP 
VC TO 11 
END 


APPENDIX B 


This appendix contains several plots to support the validity of the re- 
gions of usefulness. Specifically, plots are included which show the signifi- 
cance of boundary points, thereby showing the dramatic decrease in performance 
and even instability of the points outside of the region. Plots are also in- 
cluded to compare the performance of the different controllers in the regions 
where all are. valid. The regions of usefulness will be examined one quadrant 
at a time. For each set of initial conditions there are six possible plots, 
each comparing linear, quadratic and third order feedback. The six plots are 
the first state, the second state, the first control, the second control, the 
norm (euclidean) of the state and the norm of the control. For example, each 
of these plots for the initial condition x(0) = (1.0, 0.0) is shown in Figures 
B.l and B.2. Figure B. 1 shows the plots for the states while B.2 shows the 
plots for- the controls. Throughout this appendix the solid line will be for 
the third, order, the dotted line for the second order, and the dashed line for 
the linear controller. 

As noted, Figures B.l and B.2 correspond to x(0) = (l.,0.). This initial 
condition is well within all three regions (Figures 5.5 through 5.7) as can be 
noted by examining the top two plots in Figure B.l. Here it is seen that all 
three controls are driving the state to zero, and (from the bottom plot in 
Figure B.l) the final norm is less than .1. For this particular point it is 
noted that the third order outperforms the other two in all six plots, and the 
linear outperforms the second order. Here "outperforms" will be a qualitative 
measure of which controller is best. The criteria used to determine this can 
be described by examining the bottom plot in Figure B.l. Here the norm of the 
state using the third order controller is less than or equal to that due to 
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the linear controller for the entire 5 seconds. While the second order plot 
is less than the third order for a short time at about 3.3 seconds, the large 
difference in favor of the third order plot for the first 3 seconds more than 
makes up for that short interval and the third order is judged better. Simi- 
larly the linear is judged better than the second order controller. This par- 
ticular set of plots does not show the dramatic increase in performance of the 
third order controller which will be shown with other plots, but it does de- 
monstrate how the controllers will be compared. 

Figures B. 3 and B.4 show the plots for x(0) = (.6,. 6). These plots are 
similar to those for x(0) = (l.,0.) in that the third order is best, linear 
second, and second order is third. It should be noted that this is typical of 
points inside all three regions inside the first quadrant. The second order 
region, however, is much larger in this quadrant as the next set of plots 
show. >. 

Figures B.5 and B.6 are the plots for x(0) = (.8, .8). Looking at Figure 
5.5, one notices that this is the last point along the xi(0) =■ X2(0) line 
which is in the linear region. Figures B.7 and B.8 show a point a little 
further out, x(0) = (.85,. 85), and they show the criterion used to determine 
whether a point is in the region or not. Notice that in Figure B.5 the linear 
still outperforms the quadratic feedback and all three controllers are driving 
the states toward zero as desired. Figures B.7 and B.8 show that with 
slightly larger initial conditions the system with only a linear controller is 
unstable. The quadratic feedback still drives the norm of the state toward 
zero as seen in the bottom plot in Figure B.7. Thus, for this point, the 
border in Figure 5.5 carries a large significance " it is the furthest it is 
safe to use linear feedback. 
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Figure B.4 Control plots for x(0) — (.6,. 6) 
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Figure B.6 Control plots for x(0) = (.8,. 8) 











The final plotu from the first quadrant are Figures B.9 and B.10 for x(0) 
** (2.0*0. 7). This is well out of the linear region of usefulness and just on 
the edge of the second order region. The third order is still much better 
than the second order at this point. 

Figures B. 11 and B.12, for x(0) ** (0.,1.) show trajectories similar to 
those seen in the middle of the first quadrant. The third order plots outper- 
form the others while the linear plots top the second order plots. The second 
order feedback at this point is far inferior to the other two. 

Points in the second quadrant which are in all three regions have plots 
of which Figures B.13 and B.14 (x(0) » (-1. 1,1.0)) are typical. All three 
types of feedback ate close with the second order being slightly inferior. 
Another example of this is shown in. Figures B.15 and B.16 (x(0) *= (—1.5, 0.3)) 
where the linear feedback is slightly inferior. It is seen that as the 
initial conditions get closer to the X 2 ( 0 ) ■=■ 0. axis the plots show that as 
each order of feedback is added the trajectories improve. Figures 3.17 and 
B. 18 show the plots for x(0) ** (-1.5,0.03). The linear is seen to be inferior 
to each of the others with the third order being the best. The third order is 
not the best everywhere, however. A close look at the regions in the second 
quadrant of Figures 5.6 and 5.7 reveals a region^ above the third order region 
where the second order feedback is still useful. Plots from a point (x(0) « 
(-1. 1,2.2)) in that area are in Figures B. 19 and B.20. Here, the third order 
plots go unstable immediately and the linear plots go unstable at 4 seconds. 
Quadratic feedback, however, remains stable. The final plots from the second 
quadrant are shown in Figures B.21 and B.22 (x(0) ** (—1.2, 1.7)). The third 
order plots are better than the second by a wide margin in the states and by 
slightly less in the controls. 
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Figure B.ll State plots for x(O) = (0.,1 
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Figure B.13 State plots for x(Q) - (-1.1, 1.0) 
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Figure B.16 Control plots for x(0) = (-1.5, 0.3) 
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Figures B.23 and B.24 (x(0) * (-l.,0. )) are very similar to Figures B.15 
and B.16 and demonstrate a trend which continues throughout the third quad- 
rants The third order is the best, the second order is slightly worse and the 
linear lags behind. Figures B.25 through B.30 (x(0) ** (-.6, -.6), (-1.5, -.3) 
and respectively) will be analyzed simultaneously. All three show 

the trend just mentioned. Another trend can be noticed by looking at the top 
plots in Figures B.26, B.28, and B.30. In Figure B.26 (top) the third order 
controller is seen to have a flat stretch around .75 seconds, while the second 
order and linear controllers have peaks. The same phenomenon is seen in Fig- 
ure B.28. In Figure B.30 one can see that this flat region has become a sort 
of antinode, peaking in the opposite direction. This seems to be the major 
difference in the control plots in this quadrant and must account for some of 
the increased performance of the third order controller. The same type of 
control plot is seen in Figure B.32 for x(0) = (-1.6, -0.8), Figure B.34 for 

x(0) = (-1.3, -1.3), and Figure B.36 for x(0) « (-2. 1,-1. 2). Figures B.33 

* 

through B.36 are the most dramatic because for these plots the system with 
third order feedback is the only stable one. They show that the linear and 
quadratic feedback systems go unstable immediately while the third order 
feedback behaves nicely. 

Figures B.37 and B.38 (x(0) = (0.,-l.)) show the same pattern as the 
graphs from the third quadrant. The third order controller outperforms the 
other two, the antinode in the first control having the same effect as be- 
fore. 

The main thrust of the plots from the fourth quadrant i 3 an examination 
of the boundaries. First of all, note that the point x(0) “ (1.0, -1.0) is in 
the linear region (Figure 5.5) while x(0) » (1.1, -l.i) i s not. Figures B.39 
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Figure B.33 State plots for x(0) = (-1. 3,-1. 3) 

(Linear and second order go unstable) 
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and B.40 show the plots for x(0) = (1.05,-1.05). Here the linear plot is 
starting to lose ground, its final state norm being about 0.5. Figure B.41 
shows three plots for x(0) = (1.1, -1.1) and it is seen that the linear feed- 
back. system is unstable. Thus the boundary is again very significant. An- 
other point to note in Figure B.40 is that the antinode in the first control 
is evident in this quadrant also. 

Figures B.42 through B.45 show the significance of the boundary of the 
second order region. Note that in B.42 and B.43 (x(0) « (2.1, -.15)) the 
second order feedback system still seems to behave satisfactorily while a 
slight perturbation to x(0) = ('’.IS ,-1.55) drives it unstable (Figures B.44 
and B.45). 

Finally, Figures B.46 through B.49 demonstrate the significance of the 
boundary of the third order region. In Figures B.46 and B.47 (x(0) = 

(2. 3, -1.5), inside the region in Figure 5.7), the third order controller 1 b 
still accomplishing its goal. The state trajectories and control trajectories 
all go toward zero* The plots of the state norm and control norm in Figure 
3.48 for x(0) = (2.375,-1.5) show that the third order is still effective. 
Figure B.49 shows that when x(0) * (2.376,-1.5) the third order feedback 
system goes unstable. Thus again the boundary of the region is seers, to be 
very significant. 

In summary, this appendix has verified the regions shown in Figures 5.5 
through 5.7. The regions get larger as more feedback terms are added. Fur- 
thermore, there is an increase in performance as terras are added throughout 
the third and fourth quadrants. In the first quadrant and part of the second, 
the linear is slightly better than the second where both ara useful although 



Figure B.39 State plots for x(0) - (1.05,-1.05) 
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Figure 6.44 State plots for x(0) = (2.15,-1.55) 
(Linear and quadratic go unstable) 
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Figure B.48 Norm plots for x(O) = (2.375,-1.5) 
(Linear and quadratic are unstable 
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APPENDIX C 


This appendix shows the data which is tabulated in Chapter 5, Tables 5. 
through 5.6 in graphical form. 
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